X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fvmsish.pm;h=30c8eb1656d7fd1eee266b2158c68467530943a3;hb=46471bde41ad0777edf7b89818df6730e8b55c20;hp=82b52abd50ff8c6c4661f5253da78983cdb40db4;hpb=9cfe5470b44e33f00045a3b9c3128c6ade6e813f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/vmsish.pm b/lib/vmsish.pm index 82b52ab..30c8eb1 100644 --- a/lib/vmsish.pm +++ b/lib/vmsish.pm @@ -1,6 +1,6 @@ package vmsish; -our $VERSION = '1.00'; +our $VERSION = '1.02'; =head1 NAME @@ -54,7 +54,7 @@ default of Universal Time (a.k.a Greenwich Mean Time, or GMT). This suppresses printing of VMS status messages to SYS$OUTPUT and SYS$ERROR if Perl terminates with an error status. and allows programs that are expecting "unix-style" Perl to avoid having to parse -VMS error messages. It does not supress any messages from Perl +VMS error messages. It does not suppress any messages from Perl itself, just the messages generated by DCL after Perl exits. The DCL symbol $STATUS will still have the termination status, but with a high-order bit set: @@ -103,7 +103,7 @@ Note that an exit() or die() that is compiled 'hushed' because of "use vmsish" is not un-hushed by calling vmsish::hushed(0) at runtime. The messages from error exits from inside the Perl core are generally -more serious, and are not supressed. +more serious, and are not suppressed. =back