From: Charles Bailey <bailey@newman.upenn.edu>
Date: Thu, 25 May 2000 04:21:25 +0000 (+0000)
Subject: Quiet error messages in vmsish.t (Charles Lane)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=399b815183ac77267abe8956bec359166640370a;p=p5sagit%2Fp5-mst-13.2.git

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 2a5b580..d63da57 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`;