diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-05-25 22:44:39 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-07 08:18:53 -0700 |
| commit | bf3d870f8b8accd379ab520c1ff1daa10317d27d (patch) | |
| tree | 5146803b0bf1ed8f28a35e8c6728b09f1ab2710a /configure.com | |
| parent | f90b723246c15bceccd726b73c412184c27eca7d (diff) | |
| download | perl-bf3d870f8b8accd379ab520c1ff1daa10317d27d.tar.gz | |
Make strict refs report $1 the same way as "$1"
A magical variable is never SvPOK, but only SvPOKp. The code that
determined whether to put an ellipsis mark after a truncated symbol
name was only checking SvPOK, resulting in this discrepancy:
$ perl5.15.9 -e 'use strict; *{"a"x40}'
Can't use string ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"...) as a symbol ref while "strict refs" in use at -e line 1.
$ perl5.15.9 -e 'use strict; ("a"x40)=~/(.*)/; *{$1}'
Can't use string ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa") as a symbol ref while "strict refs" in use at -e line 1.
$ perl5.15.9 -e 'use strict; ${"a"x40}'
Can't use string ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"...) as a SCALAR ref while "strict refs" in use at -e line 1.
$ perl5.15.9 -e 'use strict; ("a"x40)=~/(.*)/; ${$1}'
Can't use string ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa") as a SCALAR ref while "strict refs" in use at -e line 1.
SvPOK variables are also SvPOKp, so checking just the latter suffices.
Diffstat (limited to 'configure.com')
0 files changed, 0 insertions, 0 deletions