perl 5.002_01: t/lib/filehand.t

Use $^O, and change ungetc test under VMS to use normal file,
since stdin isn't always buffered.  Change is specific to VMS,
in case Unix folks were trying to test whether it was possible
to ungetc one char onto a stream that hadn't been read.

1 files changed, 9 insertions, 4 deletions

diff --git a/t/lib/filehand.t b/t/lib/filehand.t
index 8b27617568..fc43350212 100644
--- a/t/lib/filehand.t
+++ b/t/lib/filehand.t
@@ -4,8 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bFileHandle\b/
-        && $Config{'osname'} ne 'VMS') {
+    if ($Config{'extensions'} !~ /\bFileHandle\b/ && $^O ne 'VMS') {
 	print "1..0\n";
 	exit 0;
     }
@@ -25,6 +24,12 @@ $fh = new FileHandle "TEST", O_RDONLY and print "ok 2\n";
 $buffer = <$fh>;
 print $buffer eq "#!./perl\n" ? "ok 3\n" : "not ok 3\n";
 
-ungetc STDIN 65;
-CORE::read(STDIN, $buf,1);
+if ($^O eq 'VMS') {
+    ungetc $fh 65;
+    CORE::read($fh, $buf,1);
+}
+else {
+    ungetc STDIN 65;
+    CORE::read(STDIN, $buf,1);
+}
 print $buf eq 'A' ? "ok 4\n" : "not ok 4\n";