projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
perl @ 27483 fix lib/Pod/Simple/t/corpustest.t to work on VMS ODS-2
[p5sagit/p5-mst-13.2.git]
/
lib
/
FileHandle.t
diff --git
a/lib/FileHandle.t
b/lib/FileHandle.t
index
c994c8b
..
ddbd944
100755
(executable)
--- a/
lib/FileHandle.t
+++ b/
lib/FileHandle.t
@@
-22,7
+22,7
@@
autoflush STDOUT 1;
$mystdout = new_from_fd FileHandle 1,"w";
$| = 1;
autoflush $mystdout;
-print "1..11\n";
+print "1..12\n";
print $mystdout "ok ".fileno($mystdout)."\n";
@@
-93,3
+93,5
@@
else {
exit(0);
}
}
+
+print FileHandle->new('','r') ? "not ok 12\n" : "ok 12\n";