diff options
| author | Thomas Sibley <tsibley@cpan.org> | 2015-09-09 22:51:06 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-09-11 12:16:47 -0600 |
| commit | 55ff8cc02359641b4e0dc6cfc068cc5036bde41b (patch) | |
| tree | 2e5451d176bc6ce65b76d3f61a693e1090051589 /lib/English.pm | |
| parent | 2e67aae74c57dc888de2c1e06b8b063ee6879d2b (diff) | |
| download | perl-55ff8cc02359641b4e0dc6cfc068cc5036bde41b.tar.gz | |
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.
Diffstat (limited to 'lib/English.pm')
| -rw-r--r-- | lib/English.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/English.pm b/lib/English.pm index efd61ff89f..e40cc124a1 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 = *: ; |