diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-01 08:39:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-01 08:39:18 +0000 |
| commit | fe3079813a2f08204ed96a614faf9e57693108d1 (patch) | |
| tree | 39b393dea3eb99906fc100b72d233289eb7b7116 /lib | |
| parent | 3d1a2ec4907585a079fab9dc4764c16e7e3b58e3 (diff) | |
| download | perl-fe3079813a2f08204ed96a614faf9e57693108d1.tar.gz | |
introduce @LAST_MATCH_START and @LAST_MATCH_END, English aliases
for @- and @+ (from Johan Vromans)
p4raw-id: //depot/perl@6030
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/English.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/English.pm b/lib/English.pm index f6e3ec0021..f38c313beb 100644 --- a/lib/English.pm +++ b/lib/English.pm @@ -98,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) @@ -110,6 +112,8 @@ sub import { *PREMATCH = *` ; *POSTMATCH = *' ; *LAST_PAREN_MATCH = *+ ; + *LAST_MATCH_START = *-{ARRAY} ; + *LAST_MATCH_END = *+{ARRAY} ; # Input. |