From 9685b82382ae7e833dbf2d9596ce401170c3f3ce Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 16 May 2009 16:03:13 -0500 Subject: tt is a reserved device name on VMS Its full name is _TTA0: (but TT for short) and it specifies the controlling terminal of the current process, so you really can't use it as the name of a temp directory. Follow-up to: 36f064bc37569629cfa8ffed15497f849ae8ccfa --- t/run/switcht.t | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 't/run') 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'); -- cgit v1.2.1