Re: [PATCH] Re: English.pm should do *PREMATCH = \$`

Message-Id: <01090518080700.19590@firewheel>

p4raw-id: //depot/perl@11896

diff --git a/lib/English.pm b/lib/English.pm
index 3f22306..5383368 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -183,6 +183,8 @@ sub import {
        *CHILD_ERROR                            = \$?   ;
        *OS_ERROR                               = \$!   ;
            *ERRNO                              = \$!   ;
+       *OS_ERROR                               = \%!   ;
+           *ERRNO                              = \%!   ;
        *EXTENDED_OS_ERROR                      = \$^E  ;
        *EVAL_ERROR                             = \$@   ;