diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-02-28 03:42:38 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-02-28 03:42:38 +0000 |
| commit | dcd846f4e75a65911ac82259fb309a534622cbd6 (patch) | |
| tree | eba1aa7582cb49fba84eb138c68c65290c556b1a /t | |
| parent | b39cdb36c806b384ddc21ca48818296c9ba21ff0 (diff) | |
| download | perl-dcd846f4e75a65911ac82259fb309a534622cbd6.tar.gz | |
Defer inclusion of VMS-specific code to runtime
p4raw-id: //depot/vmsperl@5306
Diffstat (limited to 't')
| -rwxr-xr-x | t/io/openpid.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/openpid.t b/t/io/openpid.t index fca7fcf8cb..fc71e7a769 100755 --- 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; |