Fix label on C<for(;;)> statement

[p5sagit/p5-mst-13.2.git] / t / lib / filehand.t

diff --git a/t/lib/filehand.t b/t/lib/filehand.t
index 038a73c..c23a7e0 100755 (executable)
--- a/t/lib/filehand.t
+++ b/t/lib/filehand.t
@@ -22,7 +22,9 @@ print "1..11\n";
 
 print $mystdout "ok ",fileno($mystdout),"\n";
 
-$fh = new FileHandle "TEST", O_RDONLY and print "ok 2\n";
+$fh = (new FileHandle "./TEST", O_RDONLY
+       or new FileHandle "TEST", O_RDONLY)
+  and print "ok 2\n";
 
 
 $buffer = <$fh>;
@@ -64,12 +66,19 @@ print "ok 10\n";
 
 ($rd,$wr) = FileHandle::pipe;
 
-if (fork) {
- $wr->close;
- print $rd->getline;
+if ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'MSWin32') {
+  $wr->autoflush;
+  $wr->printf("ok %d\n",11);
+  print $rd->getline;
 }
 else {
- $rd->close;
- $wr->printf("ok %d\n",11);
- exit(0);
+  if (fork) {
+   $wr->close;
+   print $rd->getline;
+  }
+  else {
+   $rd->close;
+   $wr->printf("ok %d\n",11);
+   exit(0);
+  }
 }