disallow eval { goto &foo }

[p5sagit/p5-mst-13.2.git] / lib / vmsish.pm

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