From: David Leadbeater <dgl@dgl.cx>
Date: Mon, 7 Mar 2011 18:56:50 +0000 (+0000)
Subject: Protect sv_collxfrm in mathoms.c with a USE_LOCALE_COLLATE ifdef
X-Git-Tag: v5.14.0-RC1~201
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/6129b56cf004af6d08fe0f9ce665d072c9695c6d

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
--- 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)