diff options
Diffstat (limited to 'vms/vmspipe.com')
| -rw-r--r-- | vms/vmspipe.com | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/vmspipe.com b/vms/vmspipe.com index 652783eec5..28caa745e7 100644 --- a/vms/vmspipe.com +++ b/vms/vmspipe.com @@ -6,8 +6,8 @@ $ 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/user sys$input 'perl_popen_in' -$ pif perl_popen_err .nes. "" then perl_define/user sys$error 'perl_popen_err' +$ pif perl_popen_in .nes. "" then perl_define/user/name_attributes=confine sys$input 'perl_popen_in' +$ pif perl_popen_err .nes. "" then perl_define/user/name_attributes=confine sys$error 'perl_popen_err' $ pif perl_popen_out .nes. "" then perl_define sys$output 'perl_popen_out' $ cmd = perl_popen_cmd $! --- get rid of global symbols |