diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:33:03 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:33:03 -0700 |
| commit | 06c841cf64c10f912e4cb0d12dbfc0add671bb81 (patch) | |
| tree | b02e773cef0db952bb77579942f1334d3183b9d8 /t/op | |
| parent | 078504b2d0c069e5cefbe4670341aa18838d452d (diff) | |
| download | perl-06c841cf64c10f912e4cb0d12dbfc0add671bb81.tar.gz | |
[perl #76814] FETCH called twice - !
This fixes ! by changing sv_2bool to sv_2bool_flags (with a macro
wrapper) and adding SvTRUE_nomg. It also corrects the docs that state
incorrectly that SvTRUE does not handle magic.
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/tie_fetch_count.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 9a767f1761..10c12b8042 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -83,9 +83,9 @@ $dummy = $var | 1 ; check_count '|'; $dummy = ~$var ; check_count '~'; # Logical operators +$dummy = !$var ; check_count '!'; TODO: { local $::TODO = $TODO; - $dummy = !$var ; check_count '!'; $dummy = $var || 1 ; check_count '||'; $dummy = ($var or 1); check_count 'or'; } |