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
authorDavid Leadbeater <dgl@dgl.cx>
Mon, 7 Mar 2011 18:56:50 +0000 (18:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 28 Mar 2011 09:21:47 +0000 (10:21 +0100)
It calls sv_collxfrm_flags which is only defined if USE_LOCALE_COLLATE
is set.

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)