From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 14 Mar 1996 03:40:20 +0000 (+0000)
Subject: perl 5.002_01: t/lib/filehand.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1cf326cf7b938a08583b9dff9cece202cacd7900;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/t/lib/filehand.t b/t/lib/filehand.t
index 8b27617..fc43350 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";