diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:33:42 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:33:42 -0700 |
| commit | a9984b10c8213b2dc4345882bd808798485d584c (patch) | |
| tree | d2d62b177e106bcd4f6d8e6e1b82a54a5c6bec7a /t | |
| parent | 06c841cf64c10f912e4cb0d12dbfc0add671bb81 (diff) | |
| download | perl-a9984b10c8213b2dc4345882bd808798485d584c.tar.gz | |
[perl #76814] FETCH called twice - m and s
This fixes m and s. It modifies pp_regcomp to avoid extra magic. It
also corrects a bug in sv_catsv_flags, which would still call
mg_get(ssv) even without the SV_GMAGIC flag set.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/tie_fetch_count.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 10c12b8042..1509e2d995 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 => 92); + plan (tests => 94); } use strict; @@ -146,9 +146,11 @@ $dummy = $var ~~ 1 ; check_count '~~'; TODO: { local $::TODO = $TODO; $dummy = $var =~ y/ //; check_count 'y///'; - /$var/ ; check_count 'm/pattern/'; - s/$var// ; check_count 's/pattern//'; } + /$var/ ; check_count 'm/pattern/'; + /$var foo/ ; check_count 'm/$tied foo/'; + s/$var// ; check_count 's/pattern//'; + s/$var foo// ; check_count 's/$tied foo//'; s/./$var/ ; check_count 's//replacement/'; # Dereferencing |