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

diff --git a/tests/WgetTest.pm.in b/tests/WgetTest.pm.in
index d0a62175..5cd6769b 100644
--- a/tests/WgetTest.pm.in
+++ b/tests/WgetTest.pm.in
@@ -1,5 +1,3 @@
-#!/usr/bin/perl -w
-
 # WARNING!
 # WgetTest.pm is a generated file! Do not edit! Edit WgetTest.pm.in
 # instead.
@@ -8,6 +6,7 @@ package WgetTest;
 $VERSION = 0.01;
 
 use strict;
+use warnings;
 
 use Cwd;
 use File::Path;
@@ -154,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};
 }