Re: [perl #19582] [PATCH bleedperl] bad overload copy constructor segfaults

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

diff --git a/lib/English.pm b/lib/English.pm
index 1ebc3de..118a95a 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -1,5 +1,7 @@
 package English;
 
+our $VERSION = '1.02';
+
 require Exporter;
 @ISA = (Exporter);
 
@@ -56,8 +58,8 @@ sub import {
         $globbed_match ||= (
            eval q{
                *MATCH                          = *&    ;
-               *PREMATCH                               = *`    ;
-               *POSTMATCH                              = *'    ;
+               *PREMATCH                       = *`    ;
+               *POSTMATCH                      = *'    ;
                1 ;
               }
            || do {
@@ -122,6 +124,7 @@ sub import {
        *OSNAME
        *LAST_REGEXP_CODE_RESULT
        *EXCEPTIONS_BEING_CAUGHT
+       *LAST_SUBMATCH_RESULT
        @LAST_MATCH_START
        @LAST_MATCH_END
 );
@@ -142,6 +145,7 @@ sub import {
 # Matching.
 
        *LAST_PAREN_MATCH                       = *+    ;
+       *LAST_SUBMATCH_RESULT                   = *^N ;
        *LAST_MATCH_START                       = *-{ARRAY} ;
        *LAST_MATCH_END                         = *+{ARRAY} ;
 
@@ -181,6 +185,8 @@ sub import {
        *CHILD_ERROR                            = *?    ;
        *OS_ERROR                               = *!    ;
            *ERRNO                              = *!    ;
+       *OS_ERROR                               = *!    ;
+           *ERRNO                              = *!    ;
        *EXTENDED_OS_ERROR                      = *^E   ;
        *EVAL_ERROR                             = *@    ;
 
@@ -218,7 +224,6 @@ sub import {
 
 #      *ARRAY_BASE                             = *[    ;
 #      *OFMT                                   = *#    ;
-#      *MULTILINE_MATCHING                     = **    ;
 #      *OLD_PERL_VERSION                       = *]    ;
 
 1;