From: Charles Bailey <bailey@newman.upenn.edu>
Date: Mon, 28 Feb 2000 03:42:38 +0000 (+0000)
Subject: Defer inclusion of VMS-specific code to runtime
X-Git-Tag: accepted/trunk/20130322.191538~32948^2~71
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=dcd846f4e75a65911ac82259fb309a534622cbd6;p=platform%2Fupstream%2Fperl.git

Defer inclusion of VMS-specific code to runtime

p4raw-id: //depot/vmsperl@5306
---

diff --git a/t/io/openpid.t b/t/io/openpid.t
index fca7fcf..fc71e7a 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;