diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-05-16 16:03:13 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-05-16 16:03:13 -0500 |
| commit | 9685b82382ae7e833dbf2d9596ce401170c3f3ce (patch) | |
| tree | 0748c13f2c50364c013a10cb3c0fe26a5c493f3e | |
| parent | 3523994b04cceafe4dd50a410bf7dc1b547a82d1 (diff) | |
| download | perl-9685b82382ae7e833dbf2d9596ce401170c3f3ce.tar.gz | |
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
| -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'); |