From: chromatic Date: Wed, 5 Sep 2001 13:22:08 +0000 (-0600) Subject: Re: [PATCH] Re: English.pm should do *PREMATCH = \$` X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be154528f7e7dc31589b7b72d4e03f88d8751799;p=p5sagit%2Fp5-mst-13.2.git Re: [PATCH] Re: English.pm should do *PREMATCH = \$` Message-Id: <01090513220807.10587@firewheel> p4raw-id: //depot/perl@11890 --- diff --git a/lib/English.pm b/lib/English.pm index 77f27c5..3f22306 100644 --- a/lib/English.pm +++ b/lib/English.pm @@ -57,9 +57,9 @@ sub import { *EXPORT = \@COMPLETE_EXPORT ; $globbed_match ||= ( eval q{ - *MATCH = *& ; - *PREMATCH = *` ; - *POSTMATCH = *' ; + *MATCH = \$& ; + *PREMATCH = \$` ; + *POSTMATCH = \$' ; 1 ; } || do { @@ -143,84 +143,84 @@ sub import { # Matching. - *LAST_PAREN_MATCH = *+ ; - *LAST_MATCH_START = *-{ARRAY} ; - *LAST_MATCH_END = *+{ARRAY} ; + *LAST_PAREN_MATCH = \$+ ; + *LAST_MATCH_START = \@- ; + *LAST_MATCH_END = \@+ ; # Input. - *INPUT_LINE_NUMBER = *. ; - *NR = *. ; - *INPUT_RECORD_SEPARATOR = */ ; - *RS = */ ; + *INPUT_LINE_NUMBER = \$. ; + *NR = \$. ; + *INPUT_RECORD_SEPARATOR = \$/ ; + *RS = \$/ ; # Output. - *OUTPUT_AUTOFLUSH = *| ; - *OUTPUT_FIELD_SEPARATOR = *, ; - *OFS = *, ; - *OUTPUT_RECORD_SEPARATOR = *\ ; - *ORS = *\ ; + *OUTPUT_AUTOFLUSH = \$| ; + *OUTPUT_FIELD_SEPARATOR = \$, ; + *OFS = \$, ; + *OUTPUT_RECORD_SEPARATOR = \$\ ; + *ORS = \$\ ; # Interpolation "constants". - *LIST_SEPARATOR = *" ; - *SUBSCRIPT_SEPARATOR = *; ; - *SUBSEP = *; ; + *LIST_SEPARATOR = \$" ; + *SUBSCRIPT_SEPARATOR = \$; ; + *SUBSEP = \$; ; # Formats - *FORMAT_PAGE_NUMBER = *% ; - *FORMAT_LINES_PER_PAGE = *= ; - *FORMAT_LINES_LEFT = *- ; - *FORMAT_NAME = *~ ; - *FORMAT_TOP_NAME = *^ ; - *FORMAT_LINE_BREAK_CHARACTERS = *: ; - *FORMAT_FORMFEED = *^L ; + *FORMAT_PAGE_NUMBER = \$% ; + *FORMAT_LINES_PER_PAGE = \$= ; + *FORMAT_LINES_LEFT = \$- ; + *FORMAT_NAME = \$~ ; + *FORMAT_TOP_NAME = \$^ ; + *FORMAT_LINE_BREAK_CHARACTERS = \$: ; + *FORMAT_FORMFEED = \$^L ; # Error status. - *CHILD_ERROR = *? ; - *OS_ERROR = *! ; - *ERRNO = *! ; - *EXTENDED_OS_ERROR = *^E ; - *EVAL_ERROR = *@ ; + *CHILD_ERROR = \$? ; + *OS_ERROR = \$! ; + *ERRNO = \$! ; + *EXTENDED_OS_ERROR = \$^E ; + *EVAL_ERROR = \$@ ; # Process info. - *PROCESS_ID = *$ ; - *PID = *$ ; - *REAL_USER_ID = *< ; - *UID = *< ; - *EFFECTIVE_USER_ID = *> ; - *EUID = *> ; - *REAL_GROUP_ID = *( ; - *GID = *( ; - *EFFECTIVE_GROUP_ID = *) ; - *EGID = *) ; - *PROGRAM_NAME = *0 ; + *PROCESS_ID = \$$ ; + *PID = \$$ ; + *REAL_USER_ID = \$< ; + *UID = \$< ; + *EFFECTIVE_USER_ID = \$> ; + *EUID = \$> ; + *REAL_GROUP_ID = \$( ; + *GID = \$( ; + *EFFECTIVE_GROUP_ID = \$) ; + *EGID = \$) ; + *PROGRAM_NAME = \$0 ; # Internals. - *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 ; - *OSNAME = *^O ; + *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 ; + *OSNAME = \$^O ; # Deprecated. -# *ARRAY_BASE = *[ ; -# *OFMT = *# ; -# *MULTILINE_MATCHING = ** ; -# *OLD_PERL_VERSION = *] ; +# *ARRAY_BASE = \$[ ; +# *OFMT = \$# ; +# *MULTILINE_MATCHING = \$* ; +# *OLD_PERL_VERSION = \$] ; 1;