buggy modulus on UVs introduced by change#3378 (resulted in

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

diff --git a/lib/English.pm b/lib/English.pm
index 2953a80..f38c313 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -87,7 +87,6 @@ sub import {
        *EGID
        *PROGRAM_NAME
        *PERL_VERSION
-       *PERL_VERSION_TUPLE
        *ACCUMULATOR
        *DEBUGGING
        *SYSTEM_FD_MAX
@@ -99,6 +98,8 @@ sub import {
        *OSNAME
        *LAST_REGEXP_CODE_RESULT
        *EXCEPTIONS_BEING_CAUGHT
+       @LAST_MATCH_START
+       @LAST_MATCH_END
 );
 
 # The ground of all being. @ARG is deprecated (5.005 makes @_ lexical)
@@ -111,6 +112,8 @@ sub import {
        *PREMATCH                               = *`    ;
        *POSTMATCH                              = *'    ;
        *LAST_PAREN_MATCH                       = *+    ;
+       *LAST_MATCH_START                       = *-{ARRAY} ;
+       *LAST_MATCH_END                         = *+{ARRAY} ;
 
 # Input.
 
@@ -167,8 +170,7 @@ sub import {
 
 # Internals.
 
-       *PERL_VERSION                           = *]    ;
-       *PERL_VERSION_TUPLE                     = *^V   ;
+       *PERL_VERSION                           = *^V   ;
        *ACCUMULATOR                            = *^A   ;
        *COMPILING                              = *^C   ;
        *DEBUGGING                              = *^D   ;
@@ -187,5 +189,6 @@ sub import {
 #      *ARRAY_BASE                             = *[    ;
 #      *OFMT                                   = *#    ;
 #      *MULTILINE_MATCHING                     = **    ;
+#      *OLD_PERL_VERSION                       = *]    ;
 
 1;