lvrefslice gets OPpLVAL_INTRO

[perl5.git] / lib / vmsish.pm

diff --git a/lib/vmsish.pm b/lib/vmsish.pm
index bbaf4f7..d7686a2 100644 (file)
--- a/lib/vmsish.pm
+++ b/lib/vmsish.pm
@@ -1,5 +1,7 @@
 package vmsish;
 
+our $VERSION = '1.04';
+
 =head1 NAME
 
 vmsish - Perl pragma to control VMS-specific language features
@@ -50,20 +52,20 @@ default of Universal Time (a.k.a Greenwich Mean Time, or GMT).
 =item C<vmsish hushed>
 
 This suppresses printing of VMS status messages to SYS$OUTPUT and
-SYS$ERROR if Perl terminates with an error status.  and allows
+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:
 
 EXAMPLE:
-    $ perl -e"exit 44;"                             Non-hushed error exit
-    %SYSTEM-F-ABORT, abort                          DCL message
+    $ perl -e"exit 44;"                          Non-hushed error exit
+    %SYSTEM-F-ABORT, abort                       DCL message
     $ show sym $STATUS
       $STATUS == "%X0000002C"
 
-    $ perl -e"use vmsish qw(hushed); exit 44;"      Hushed error exit
+    $ perl -e"use vmsish qw(hushed); exit 44;"   Hushed error exit
     $ show sym $STATUS
       $STATUS == "%X1000002C"
 
@@ -101,11 +103,11 @@ 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
 
-See L<perlmod/Pragmatic Modules>.
+See L<perlmod/Perl Modules>.
 
 =cut
 
@@ -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';
     }