diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-05-25 04:21:25 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-05-25 04:21:25 +0000 |
| commit | 399b815183ac77267abe8956bec359166640370a (patch) | |
| tree | 643fb191ccf6f0b48190d18c3442b8504b9b95ff /vms | |
| parent | f282b18d2bccfa65fa756124e825b7ce71f9b64f (diff) | |
| download | perl-399b815183ac77267abe8956bec359166640370a.tar.gz | |
Quiet error messages in vmsish.t (Charles Lane)
p4raw-id: //depot/vmsperl@6119
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/vmsish.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vms/ext/vmsish.t b/vms/ext/vmsish.t index 2a5b580bda..d63da57235 100644 --- a/vms/ext/vmsish.t +++ b/vms/ext/vmsish.t @@ -136,6 +136,7 @@ sub do_a_perl { local *P; open(P,'>vmsish_test.com') || die('not ok ?? : unable to open "vmsish_test.com" for writing'); print P "\$ set message/facil/sever/ident/text\n"; + print P "\$ define/nolog/user sys\$error _nla0:\n"; print P "\$ $Invoke_Perl @_\n"; close P; my $x = `\@vmsish_test.com`; |