X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fvmsish.pm;h=4907ad388d2c445f68cd93c9925fe3f608b7f60d;hb=8bbf3450a1ff0a3996dade29a4194cc0939d871f;hp=bbaf4f79f42402ed710dfe71ba5d464037a3ceea;hpb=9f84c00564fd021b1da47513d58d337c301b73aa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/vmsish.pm b/lib/vmsish.pm
index bbaf4f7..4907ad3 100644
--- a/lib/vmsish.pm
+++ b/lib/vmsish.pm
@@ -1,5 +1,7 @@
 package vmsish;
 
+our $VERSION = '1.01';
+
 =head1 NAME
 
 vmsish - Perl pragma to control VMS-specific language features
@@ -115,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';
     }