projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f282b18
)
Quiet error messages in vmsish.t (Charles Lane)
author
Charles Bailey
<bailey@newman.upenn.edu>
Thu, 25 May 2000 04:21:25 +0000
(
04:21
+0000)
committer
bailey
<bailey@newman.upenn.edu>
Thu, 25 May 2000 04:21:25 +0000
(
04:21
+0000)
p4raw-id: //depot/vmsperl@6119
vms/ext/vmsish.t
patch
|
blob
|
history
diff --git
a/vms/ext/vmsish.t
b/vms/ext/vmsish.t
index
2a5b580
..
d63da57
100644
(file)
--- 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`;