-#!/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;
($cmdline =~ m{^/.*})
? system ($cmdline)
: system ("$self->{_workdir}/../src/$cmdline");
+ $errcode >>= 8; # XXX: should handle abnormal error codes.
# Shutdown server
# if we didn't explicitely kill the server, we would have to call
my $self = shift;
chdir ($self->{_workdir});
- File::Path::rmtree ($self->{_name});
+ File::Path::rmtree ($self->{_name}) unless $ENV{WGET_TEST_NO_CLEANUP};
}