diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-30 22:30:26 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-30 22:32:20 -0700 |
| commit | a4036ec1a2044ae2d677ec3df30cde04dd5a008a (patch) | |
| tree | d8aaa6b5f625b502768637cc787e1777b41df1ff /t/op/tie_fetch_count.t | |
| parent | 92cf6698b7b791604a155ab95762f0b29a351068 (diff) | |
| download | perl-a4036ec1a2044ae2d677ec3df30cde04dd5a008a.tar.gz | |
Stop calling get-magic twice when reading lvalue substr($utf8)
Diffstat (limited to 't/op/tie_fetch_count.t')
| -rw-r--r-- | t/op/tie_fetch_count.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 977b8bf56c..dfed65ece2 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -7,7 +7,7 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; - plan (tests => 305); + plan (tests => 306); } use strict; @@ -251,6 +251,8 @@ for ([chdir=>''],[chmod=>'0,'],[chown=>'0,0,'],[utime=>'0,0,'], tie $var, "main", "\x{100}"; pos$var = 0 ; check_count 'lvalue pos $utf8'; $dummy = substr$var,0,1; check_count 'substr $utf8'; +my $l =\substr$var,0,1; +$dummy = $$l ; check_count 'reading lvalue substr($utf8)'; { local $SIG{__WARN__} = sub {}; |