diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-23 23:32:30 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-24 01:45:31 -0800 |
| commit | 5668452f0dfcb2591dfb8da07389b99e8823a280 (patch) | |
| tree | 94ffdacfa254a99d3c4a5aefc8f2235eb2696f74 /t | |
| parent | e935c5db5165ed95c32f8f97cd8951091c77993c (diff) | |
| download | perl-5668452f0dfcb2591dfb8da07389b99e8823a280.tar.gz | |
Call FETCH once for rcatline
Diffstat (limited to 't')
| -rw-r--r-- | t/op/tie_fetch_count.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 319810587d..d9d498949a 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 => 295); + plan (tests => 298); } use strict; @@ -121,6 +121,12 @@ $dummy = atan2 $var, 1 ; check_count 'atan2'; # Readline/glob tie my $var0, "main", \*DATA; $dummy = <$var0> ; check_count '<readline>'; +$var = \1; +$var .= <DATA> ; check_count '$tiedref .= <rcatline>'; +$var = "tied"; +$var .= <DATA> ; check_count '$tiedstr .= <rcatline>'; +$var = *foo; +$var .= <DATA> ; check_count '$tiedglob .= <rcatline>'; $dummy = <${var}> ; check_count '<glob>'; # File operators |