2 $! --- protect against nonstandard definitions ---
3 $ perl_define = "define/nolog"
4 $ perl_on = "on error then exit $STATUS"
8 $! --- define i/o redirection (sys$output set by lib$spawn)
9 $ pif perl_popen_in .nes. "" then perl_define sys$input 'perl_popen_in'
10 $ pif perl_popen_err .nes. "" then perl_define sys$error 'perl_popen_err'
11 $ cmd = perl_popen_cmd
12 $! --- get rid of global symbols
13 $ perl_del/symbol/global perl_popen_in
14 $ perl_del/symbol/global perl_popen_err
15 $ perl_del/symbol/global perl_popen_cmd