Integrate with Sarathy.

p4raw-id: //depot/cfgperl@6140

2 files changed, 4 insertions, 3 deletions

diff --git a/vms/ext/vmsish.pm b/vms/ext/vmsish.pm
index 2fc48530c0..c51863a4f3 100644
--- a/vms/ext/vmsish.pm
+++ b/vms/ext/vmsish.pm
@@ -44,12 +44,12 @@ default of Universal Time (a.k.a Greenwich Mean Time, or GMT).
 
 =item C<vmsish hushed>
 
-This supresses printing of VMS status messages to SYS$OUTPUT and SYS$ERROR
+This suppresses printing of VMS status messages to SYS$OUTPUT and SYS$ERROR
 if Perl terminates with an error status.  This primarily effects error
-exits from things like compiler errors or "standard Perl" runtime errors,
+exits from things like Perl compiler errors or "standard Perl" runtime errors,
 where text error messages are also generated by Perl.
 
-The error exits from inside VMS.C are generally more serious, and are
+The error exits from inside the core are generally more serious, and are
 not supressed.
 
 =back
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`;