From eff180cdf66484c41f3aacf26a4fd81d2be06de0 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 30 Jan 2001 20:26:33 +0000
Subject: Fix for the fa_IR locale failure.  The reason for the failure was
 that Perl was assuming the decimal separator aka the radix separator is one
 character.  The Farsi-Iranian locale crushed that bad assumption since there
 the separator is 'Momayyez', glyphwise looking somewhat like a slash, and in
 Unicode UTF-8 encoded in two bytes, 0xd9 0xab.

p4raw-id: //depot/perl@8625
---
 perl.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index a5f4e68b6b..21ca8aa068 100644
--- a/perl.c
+++ b/perl.c
@@ -562,6 +562,7 @@ perl_destruct(pTHXx)
 #ifdef USE_LOCALE_NUMERIC
     Safefree(PL_numeric_name);
     PL_numeric_name = Nullch;
+    SvREFCNT_dec(PL_numeric_radix);
 #endif
 
     /* clear utf8 character classes */
-- 
cgit v1.2.1