X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FWgetTest.pm.in;h=5cd6769b8c0686d395c230ac9449fe341c7cca69;hp=2e124e3c6d96a4c159d2b2414482136418d03376;hb=d763f8bf6d6e13ce006ffab616cc8a77e747a633;hpb=78a765739543d5ca3bc83ad70f5d391b9d2af4f5

diff --git a/tests/WgetTest.pm.in b/tests/WgetTest.pm.in
index 2e124e3c..5cd6769b 100644
--- a/tests/WgetTest.pm.in
+++ b/tests/WgetTest.pm.in
@@ -153,7 +153,7 @@ sub _cleanup {
     my $self = shift;
 
     chdir ($self->{_workdir});
-    File::Path::rmtree ($self->{_name});
+    File::Path::rmtree ($self->{_name}) unless $ENV{WGET_TEST_NO_CLEANUP};
 }