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

p4raw-id: //depot/perl@5107

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index b5fd06f513..22d272ec68 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);