From 399b815183ac77267abe8956bec359166640370a Mon Sep 17 00:00:00 2001
From: Charles Bailey <bailey@newman.upenn.edu>
Date: Thu, 25 May 2000 04:21:25 +0000
Subject: [PATCH] Quiet error messages in vmsish.t (Charles Lane)

p4raw-id: //depot/vmsperl@6119
---
 vms/ext/vmsish.t | 1 +
 1 file changed, 1 insertion(+)

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`;
-- 
2.7.4