6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bFileHandle\b/
8 && $Config{'osname'} ne 'VMS') {
17 $mystdout = new_from_fd FileHandle 1,"w";
22 print $mystdout "ok ",fileno($mystdout),"\n";
24 $fh = new FileHandle "TEST", O_RDONLY and print "ok 2\n";
26 print $buffer eq "#!./perl\n" ? "ok 3\n" : "not ok 3\n";
29 CORE::read(STDIN, $buf,1);
30 print $buf eq 'A' ? "ok 4\n" : "not ok 4\n";