From 078504b2d0c069e5cefbe4670341aa18838d452d Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 24 Sep 2010 20:31:28 -0700 Subject: [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. --- sv.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'sv.h') diff --git a/sv.h b/sv.h index a96c6f57b6..07966b2420 100644 --- a/sv.h +++ b/sv.h @@ -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) -- cgit v1.2.1