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

diff --git a/lib/vmsish.pm b/lib/vmsish.pm
index c2d97c1..4907ad3 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
 
@@ -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';
     }