-#!/usr/bin/perl -w
-
# WARNING!
# WgetTest.pm is a generated file! Do not edit! Edit WgetTest.pm.in
# instead.
$VERSION = 0.01;
use strict;
+use warnings;
use Cwd;
use File::Path;
my $self = shift;
chdir ($self->{_workdir});
- File::Path::rmtree ($self->{_name});
+ File::Path::rmtree ($self->{_name}) unless $ENV{WGET_TEST_NO_CLEANUP};
}