Can't get #17492 to work with -Uuseperlio otherwise (either

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

diff --git a/lib/English.pm b/lib/English.pm
index 3f22306..05dd05c 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -124,6 +124,7 @@ sub import {
        *OSNAME
        *LAST_REGEXP_CODE_RESULT
        *EXCEPTIONS_BEING_CAUGHT
+       *LAST_SUBMATCH_RESULT
        @LAST_MATCH_START
        @LAST_MATCH_END
 );
@@ -144,6 +145,7 @@ sub import {
 # Matching.
 
        *LAST_PAREN_MATCH                       = \$+   ;
+       *LAST_SUBMATCH_RESULT                   = \$^N ;
        *LAST_MATCH_START                       = \@- ;
        *LAST_MATCH_END                         = \@+ ;
 
@@ -183,6 +185,8 @@ sub import {
        *CHILD_ERROR                            = \$?   ;
        *OS_ERROR                               = \$!   ;
            *ERRNO                              = \$!   ;
+       *OS_ERROR                               = \%!   ;
+           *ERRNO                              = \%!   ;
        *EXTENDED_OS_ERROR                      = \$^E  ;
        *EVAL_ERROR                             = \$@   ;