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 /sv.h | |
| 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 'sv.h')
| -rw-r--r-- | sv.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1799,6 +1799,8 @@ mg.c:1024: warning: left-hand operand of comma expression has no effect #define sv_2iv(sv) sv_2iv_flags(sv, SV_GMAGIC) #define sv_2uv(sv) sv_2uv_flags(sv, SV_GMAGIC) #define sv_2nv(sv) sv_2nv_flags(sv, SV_GMAGIC) +#define sv_eq(sv1, sv2) sv_eq_flags(sv1, sv2, SV_GMAGIC) +#define sv_collxfrm(sv, nxp) sv_cmp_flags(sv, nxp, SV_GMAGIC) #define sv_insert(bigstr, offset, len, little, littlelen) \ Perl_sv_insert_flags(aTHX_ (bigstr),(offset), (len), (little), \ (littlelen), SV_GMAGIC) |