In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/55ff8cc02359641b4e0dc6cfc068cc5036bde41b?hp=512c0f5a351dd399dbb069e222741582044f88cc>
- Log ----------------------------------------------------------------- commit 55ff8cc02359641b4e0dc6cfc068cc5036bde41b Author: Thomas Sibley <[email protected]> Date: Wed Sep 9 22:51:06 2015 -0700 English.pm: Only alias $- to $FORMAT_LINES_LEFT Avoids aliasing %- and @- as %FORMAT_LINES_LEFT and @FORMAT_LINES_LEFT. I audited the rest of perlvar and English.pm for over-eager aliasing of unrelated variables but found no other cases. M lib/English.pm commit 2e67aae74c57dc888de2c1e06b8b063ee6879d2b Author: Thomas Sibley <[email protected]> Date: Wed Sep 9 21:35:09 2015 -0700 perlvar: %LAST_MATCH_START is not %- %- has no English alias. %FORMAT_LINES_LEFT works in practice thanks to indiscriminate typeglob aliasing, but that really doesn't count! %LAST_PAREN_MATCHES or %LAST_PAREN_ALL_MATCH might be a reasonable addition for %-, to parallel %+ and %LAST_PAREN_MATCH. M pod/perlvar.pod ----------------------------------------------------------------------- Summary of changes: lib/English.pm | 4 ++-- pod/perlvar.pod | 4 +--- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lib/English.pm b/lib/English.pm index efd61ff..e40cc12 100644 --- a/lib/English.pm +++ b/lib/English.pm @@ -1,6 +1,6 @@ package English; -our $VERSION = '1.09'; +our $VERSION = '1.10'; require Exporter; @ISA = qw(Exporter); @@ -182,7 +182,7 @@ sub import { *FORMAT_PAGE_NUMBER = *% ; *FORMAT_LINES_PER_PAGE = *= ; - *FORMAT_LINES_LEFT = *- ; + *FORMAT_LINES_LEFT = *-{SCALAR} ; *FORMAT_NAME = *~ ; *FORMAT_TOP_NAME = *^ ; *FORMAT_LINE_BREAK_CHARACTERS = *: ; diff --git a/pod/perlvar.pod b/pod/perlvar.pod index 342a596..005f23e 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -1135,10 +1135,8 @@ After a match against some variable C<$var>: This variable was added in Perl v5.6.0. -=item %LAST_MATCH_START - =item %- -X<%-> X<%LAST_MATCH_START> +X<%-> Similar to C<%+>, this variable allows access to the named capture groups in the last successful match in the currently active dynamic scope. To -- Perl5 Master Repository
