From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 16 May 2009 21:03:13 +0000 (-0500)
Subject: tt is a reserved device name on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9685b82382ae7e833dbf2d9596ce401170c3f3ce;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/run/switcht.t b/t/run/switcht.t
index 6f0fed5..fd81885 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');