diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-23 13:03:06 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 01:45:29 -0800 |
| commit | b4cc4d79bdf5cb925f73a41f253ddedf9c846c5b (patch) | |
| tree | b3c7d65925d2977d222db424a55d9e3c55fb4954 /t/op/tie_fetch_count.t | |
| parent | b86ef4ceaab5d9a6fca3fcfff7b5c2e5228d2bf0 (diff) | |
| download | perl-b4cc4d79bdf5cb925f73a41f253ddedf9c846c5b.tar.gz | |
Call FETCH once for $tied_ref =~ y/a/b/
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 e4fe5f4f7f..81cbe19b01 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 => 291); + plan (tests => 292); } use strict; @@ -143,6 +143,8 @@ $dummy = $var =~ m/ / ; check_count 'm//'; $dummy = $var =~ s/ //; check_count 's///'; $dummy = $var ~~ 1 ; check_count '~~'; $dummy = $var =~ y/ //; check_count 'y///'; + $var = \1; +$dummy = $var =~y/ /-/; check_count '$ref =~ y///'; /$var/ ; check_count 'm/pattern/'; /$var foo/ ; check_count 'm/$tied foo/'; s/$var// ; check_count 's/pattern//'; |