typo in makedef.pl

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

diff --git a/lib/English.pm b/lib/English.pm
index ce4520a..f6e3ec0 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -27,9 +27,15 @@ $INPUT_RECORD_SEPARATOR if you are using the English module.
 
 See L<perlvar> for a complete list of these.
 
+=head1 BUGS
+
+This module provokes sizeable inefficiencies for regular expressions,
+due to unfortunate implementation details.  If performance matters,
+consider avoiding English.
+
 =cut
 
-local $^W = 0;
+no warnings;
 
 # Grandfather $NAME import
 sub import {
@@ -90,9 +96,11 @@ sub import {
        *WARNING
        *EXECUTABLE_NAME
        *OSNAME
+       *LAST_REGEXP_CODE_RESULT
+       *EXCEPTIONS_BEING_CAUGHT
 );
 
-# The ground of all being.
+# The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
 
        *ARG                                    = *_    ;
 
@@ -138,8 +146,8 @@ sub import {
 
        *CHILD_ERROR                            = *?    ;
        *OS_ERROR                               = *!    ;
-       *EXTENDED_OS_ERROR                      = *^E   ;
            *ERRNO                              = *!    ;
+       *EXTENDED_OS_ERROR                      = *^E   ;
        *EVAL_ERROR                             = *@    ;
 
 # Process info.
@@ -158,12 +166,15 @@ sub import {
 
 # Internals.
 
-       *PERL_VERSION                           = *]    ;
+       *PERL_VERSION                           = *^V   ;
        *ACCUMULATOR                            = *^A   ;
+       *COMPILING                              = *^C   ;
        *DEBUGGING                              = *^D   ;
        *SYSTEM_FD_MAX                          = *^F   ;
        *INPLACE_EDIT                           = *^I   ;
        *PERLDB                                 = *^P   ;
+       *LAST_REGEXP_CODE_RESULT                = *^R   ;
+       *EXCEPTIONS_BEING_CAUGHT                = *^S   ;
        *BASETIME                               = *^T   ;
        *WARNING                                = *^W   ;
        *EXECUTABLE_NAME                        = *^X   ;
@@ -174,5 +185,6 @@ sub import {
 #      *ARRAY_BASE                             = *[    ;
 #      *OFMT                                   = *#    ;
 #      *MULTILINE_MATCHING                     = **    ;
+#      *OLD_PERL_VERSION                       = *]    ;
 
 1;