Protect sv_collxfrm in mathoms.c with a USE_LOCALE_COLLATE ifdef

It calls sv_collxfrm_flags which is only defined if USE_LOCALE_COLLATE
is set.

diff --git a/mathoms.c b/mathoms.c
index ceab0c5..0b67ae9 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1120,11 +1120,13 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2)
     return sv_eq_flags(sv1, sv2, SV_GMAGIC);
 }
 
     return sv_eq_flags(sv1, sv2, SV_GMAGIC);
 }
 

+#ifdef USE_LOCALE_COLLATE

 char *
 Perl_sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp)
 {
     return sv_collxfrm_flags(sv, nxp, SV_GMAGIC);
 }
 char *
 Perl_sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp)
 {
     return sv_collxfrm_flags(sv, nxp, SV_GMAGIC);
 }

+#endif

 
 bool
 Perl_sv_2bool(pTHX_ register SV *const sv)
 
 bool
 Perl_sv_2bool(pTHX_ register SV *const sv)