From 93d6612c1a533e775e2884e98da42e418edd3a83 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Tue, 29 Aug 2000 13:43:26 -0500
Subject: Chuck Lane's OpenVMS piping improvements Message-Id:
 <4.3.2.7.2.20000829180705.01b005b8@exchi01>

p4raw-id: //depot/perl@6903
---
 vms/vmspipe.com | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 vms/vmspipe.com

(limited to 'vms/vmspipe.com')

diff --git a/vms/vmspipe.com b/vms/vmspipe.com
new file mode 100644
index 0000000000..bbb4461c72
--- /dev/null
+++ b/vms/vmspipe.com
@@ -0,0 +1,18 @@
+$! 'f$verify(0)         
+$!  ---  protect against nonstandard definitions ---
+$ perl_define = "define/nolog"
+$ perl_on     = "on error then exit $STATUS"
+$ perl_exit   = "exit"
+$ perl_del    = "delete"
+$ pif         = "if"
+$!  --- define i/o redirection (sys$output set by lib$spawn)
+$ pif perl_popen_in  .nes. "" then perl_define sys$input  'perl_popen_in'
+$ pif perl_popen_err .nes. "" then perl_define sys$error  'perl_popen_err'
+$ cmd = perl_popen_cmd
+$!  --- get rid of global symbols
+$ perl_del/symbol/global perl_popen_in
+$ perl_del/symbol/global perl_popen_err
+$ perl_del/symbol/global perl_popen_cmd
+$ perl_on
+$ 'cmd
+$ perl_exit '$STATUS'
-- 
cgit v1.2.1