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

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};
 }