| Revision 18450,
1.0 KB
checked in by zacheiss, 21 years ago
(diff) |
|
This commit was generated by cvs2svn to compensate for changes in r18449,
which included commits to RCS files with non-trunk default branches.
|
| Line | |
|---|
| 1 | $! 'f$verify(0) |
|---|
| 2 | $! --- protect against nonstandard definitions --- |
|---|
| 3 | $ perl_define = "define/nolog" |
|---|
| 4 | $ perl_on = "on error then exit $STATUS" |
|---|
| 5 | $ perl_exit = "exit" |
|---|
| 6 | $ perl_del = "delete" |
|---|
| 7 | $ pif = "if" |
|---|
| 8 | $! --- define i/o redirection (sys$output set by lib$spawn) |
|---|
| 9 | $ pif perl_popen_in .nes. "" then perl_define/user/name_attributes=confine sys$input 'perl_popen_in' |
|---|
| 10 | $ pif perl_popen_err .nes. "" then perl_define/user/name_attributes=confine sys$error 'perl_popen_err' |
|---|
| 11 | $ pif perl_popen_out .nes. "" then perl_define sys$output 'perl_popen_out' |
|---|
| 12 | $! --- build command line to get max possible length |
|---|
| 13 | $c=perl_popen_cmd0 |
|---|
| 14 | $c=c+perl_popen_cmd1 |
|---|
| 15 | $c=c+perl_popen_cmd2 |
|---|
| 16 | $x=perl_popen_cmd3 |
|---|
| 17 | $c=c+x |
|---|
| 18 | $! --- get rid of global symbols |
|---|
| 19 | $ perl_del/symbol/global perl_popen_cmd0 |
|---|
| 20 | $ perl_del/symbol/global perl_popen_cmd1 |
|---|
| 21 | $ perl_del/symbol/global perl_popen_cmd2 |
|---|
| 22 | $ perl_del/symbol/global perl_popen_cmd3 |
|---|
| 23 | $ perl_del/symbol/global perl_popen_in |
|---|
| 24 | $ perl_del/symbol/global perl_popen_err |
|---|
| 25 | $ perl_del/symbol/global perl_popen_out |
|---|
| 26 | $ perl_on |
|---|
| 27 | $ 'c |
|---|
| 28 | $ perl_exit '$STATUS' |
|---|
Note: See
TracBrowser
for help on using the repository browser.
