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 (file)
--- 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');