diff options
Diffstat (limited to 'vms/ext')
| -rw-r--r-- | vms/ext/vmsish.pm | 6 | ||||
| -rw-r--r-- | vms/ext/vmsish.t | 1 |
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`; |