Quiet error messages in vmsish.t (Charles Lane)

p4raw-id: //depot/vmsperl@6119

diff --git a/vms/ext/vmsish.t b/vms/ext/vmsish.t
index 2a5b580bda35df9f03e416a990df7e0c03c0bed9..d63da57235de08f105ef14d26c2cbee4462ac7ff 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`;