diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:31:28 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 20:31:28 -0700 |
| commit | 078504b2d0c069e5cefbe4670341aa18838d452d (patch) | |
| tree | 82ea75dc3a93df1feb46a1a1b97a774ab28f6b20 /t | |
| parent | 582ac935ddba404ce00c7eda1a75e8a2c0412eee (diff) | |
| download | perl-078504b2d0c069e5cefbe4670341aa18838d452d.tar.gz | |
[perl #76814] FETCH called twice - string comparison ops
This patch changes sv_eq, sv_cmp, sv_cmp_locale and sv_collxfrm
to _flags forms, with macros under the old names for sv_eq and
sv_collxfrm, but functions for sv_cmp* since pp_sort.c needs them.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/tie_fetch_count.t | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t index 42f8474b11..9a767f1761 100644 --- a/t/op/tie_fetch_count.t +++ b/t/op/tie_fetch_count.t @@ -68,16 +68,13 @@ $dummy = $var != 1 ; check_count '!='; $dummy = $var <=> 1 ; check_count '<=>'; # String comparison -TODO: { - local $::TODO = $TODO; - $dummy = $var lt 1 ; check_count 'lt'; - $dummy = $var le 1 ; check_count 'le'; - $dummy = $var eq 1 ; check_count 'eq'; - $dummy = $var ge 1 ; check_count 'ge'; - $dummy = $var gt 1 ; check_count 'gt'; - $dummy = $var ne 1 ; check_count 'ne'; - $dummy = $var cmp 1 ; check_count 'cmp'; -} +$dummy = $var lt 1 ; check_count 'lt'; +$dummy = $var le 1 ; check_count 'le'; +$dummy = $var eq 1 ; check_count 'eq'; +$dummy = $var ge 1 ; check_count 'ge'; +$dummy = $var gt 1 ; check_count 'gt'; +$dummy = $var ne 1 ; check_count 'ne'; +$dummy = $var cmp 1 ; check_count 'cmp'; # Bitwise operators $dummy = $var & 1 ; check_count '&'; |