This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Protect sv_collxfrm in mathoms.c with a USE_LOCALE_COLLATE ifdef
[perl5.git] / 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);
 }
 
+#ifdef USE_LOCALE_COLLATE
 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)