projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b39cdb3
)
Defer inclusion of VMS-specific code to runtime
author
Charles Bailey
<bailey@newman.upenn.edu>
Mon, 28 Feb 2000 03:42:38 +0000
(
03:42
+0000)
committer
bailey
<bailey@newman.upenn.edu>
Mon, 28 Feb 2000 03:42:38 +0000
(
03:42
+0000)
p4raw-id: //depot/vmsperl@5306
t/io/openpid.t
patch
|
blob
|
history
diff --git
a/t/io/openpid.t
b/t/io/openpid.t
index
fca7fcf
..
fc71e7a
100755
(executable)
--- a/
t/io/openpid.t
+++ b/
t/io/openpid.t
@@
-80,7
+80,7
@@
autoflush FH4 1;
print FH4 "ok 9\n";
print "# waiting for process $pid4 to exit\n";
#VMS: Send an EOF to convince the subprocess to exit as well
-if ($^O eq 'VMS') {
use VMS::Stdio qw(&writeof);
writeof(FH4); }
+if ($^O eq 'VMS') {
require VMS::Stdio; VMS::Stdio::
writeof(FH4); }
$reap_pid = waitpid $pid4, 0;
print "# reaped pid $reap_pid != $pid4\nnot "
unless $reap_pid == $pid4;