An accidental empty line.

[p5sagit/p5-mst-13.2.git] / vms / vmspipe.com

diff --git a/vms/vmspipe.com b/vms/vmspipe.com
index 652783e..28caa74 100644 (file)
--- 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