Fix nasty memory leak in vms.c:Perl_flex_stat_int().

[perl5.git] / vms / vmspipe.com

diff --git a/vms/vmspipe.com b/vms/vmspipe.com
index 652783e..dd23bf9 100644 (file)
--- a/vms/vmspipe.com
+++ b/vms/vmspipe.com
@@ -1,4 +1,4 @@
-$! 'f$verify(0)         
+$! 'f$verify(0)'
 $!  ---  protect against nonstandard definitions ---
 $ perl_define = "define/nolog"
 $ perl_on     = "on error then exit $STATUS"
@@ -6,15 +6,15 @@ $ 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
-$ perl_del/symbol/global perl_popen_in
-$ perl_del/symbol/global perl_popen_err
-$ perl_del/symbol/global perl_popen_out
-$ perl_del/symbol/global perl_popen_cmd
+$!  --- build command line to get max possible length
+$c=perl_popen_cmd0
+$c=c+perl_popen_cmd1
+$c=c+perl_popen_cmd2
+$x=perl_popen_cmd3
+$c=c+x
 $ perl_on
-$ 'cmd
+$ 'c'
 $ perl_exit '$STATUS'