diff options
| -rw-r--r-- | t/run/switcht.t | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/t/run/switcht.t b/t/run/switcht.t index 6f0fed5177..fd8188518f 100644 --- a/t/run/switcht.t +++ b/t/run/switcht.t @@ -46,21 +46,21 @@ ok( !-e $file, 'unlink worked' ); ok( !$^W, "-t doesn't enable regular warnings" ); -mkdir('tt'); -open(FH,'>','tt/ttest.pl')or DIE $!; +mkdir('ttdir'); +open(FH,'>','ttdir/ttest.pl')or DIE $!; print FH 'return 42'; close FH or DIE $!; SKIP: { - ($^O eq 'MSWin32') || skip('skip tainted do test with \ seperator'); + ($^O eq 'MSWin32') || skip('skip tainted do test with \ separator'); my $test = 0; - $test = do '.\tt/ttest.pl'; - is($test, 42, 'Could "do" .\tt/ttest.pl'); + $test = do '.\ttdir/ttest.pl'; + is($test, 42, 'Could "do" .\ttdir/ttest.pl'); } { my $test = 0; - $test = do './tt/ttest.pl'; - is($test, 42, 'Could "do" ./tt/ttest.pl'); + $test = do './ttdir/ttest.pl'; + is($test, 42, 'Could "do" ./ttdir/ttest.pl'); } -unlink ('./tt/ttest.pl'); -rmdir ('tt'); +unlink ('./ttdir/ttest.pl'); +rmdir ('ttdir'); |