From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 15 Feb 2000 18:04:31 +0000 (+0000)
Subject: locale guards needed (from Simon Cozens <simon@brecon.co.uk>)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9582b6a1927c5927eaaf0fdf154d2cefbf4c002;p=p5sagit%2Fp5-mst-13.2.git

locale guards needed (from Simon Cozens <simon@brecon.co.uk>)

p4raw-id: //depot/perl@5107
---

diff --git a/perl.c b/perl.c
index b5fd06f..22d272e 100644
--- a/perl.c
+++ b/perl.c
@@ -523,11 +523,15 @@ perl_destruct(pTHXx)
     PL_formtarget = Nullsv;
 
     /* free locale stuff */
+#ifdef USE_LOCALE_COLLATE
     Safefree(PL_collation_name);
     PL_collation_name = Nullch;
+#endif
 
+#ifdef USE_LOCALE_NUMERIC
     Safefree(PL_numeric_name);
     PL_numeric_name = Nullch;
+#endif
 
     /* clear utf8 character classes */
     SvREFCNT_dec(PL_utf8_alnum);