X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fvmsish.pm;h=a11c364167512b0e813dd24e1d8b333c11abfebf;hb=7b9ef14019d3c4d1aa14641dbd421c81c2cd18a4;hp=c2d97c13ae80cb506df6224c4dae1fc573910f2a;hpb=28b605d8910b6ca7063fcd3cd10e0b471b6b8c9b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/vmsish.pm b/lib/vmsish.pm
index c2d97c1..a11c364 100644
--- a/lib/vmsish.pm
+++ b/lib/vmsish.pm
@@ -1,6 +1,6 @@
 package vmsish;
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 
 =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
 
@@ -117,6 +117,8 @@ sub bits {
     my $bits = 0;
     my $sememe;
     foreach $sememe (@_) {
+	# Those hints are defined in vms/vmsish.h :
+	# HINT_M_VMSISH_STATUS and HINT_M_VMSISH_TIME
         $bits |= 0x40000000, next if $sememe eq 'status' || $sememe eq '$?';
 	$bits |= 0x80000000, next if $sememe eq 'time';
     }