diff options
Diffstat (limited to 'T.pm')
-rw-r--r-- | T.pm | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -10,8 +10,6 @@ our @ISA = qw(Exporter); | |||
10 | our @EXPORT = qw(system_ok); | 10 | our @EXPORT = qw(system_ok); |
11 | 11 | ||
12 | my $root = Cwd::cwd; | 12 | my $root = Cwd::cwd; |
13 | $ENV{PATH} = "$root:$ENV{PATH}"; | ||
14 | $ENV{DH_AUTOSCRIPTDIR} = $root; | ||
15 | 13 | ||
16 | die '$0 does not match expected format' | 14 | die '$0 does not match expected format' |
17 | unless ($0 =~ m#t/([0-9]+)\.t#); | 15 | unless ($0 =~ m#t/([0-9]+)\.t#); |