make sprintf("%g",...) threadsafe; only taint its result iff the

formatted result looks nonstandard

p4raw-id: //depot/perl@4130

1 files changed, 5 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index ed88bc3eb4..de91ed456f 100644
--- a/perl.c
+++ b/perl.c
@@ -409,6 +409,11 @@ perl_destruct(pTHXx)
     Safefree(PL_screamnext);
     PL_screamnext  = 0;
 
+    /* float buffer */
+    Safefree(PL_efloatbuf);
+    PL_efloatbuf = Nullch;
+    PL_efloatsize = 0;
+
     /* startup and shutdown function lists */
     SvREFCNT_dec(PL_beginav);
     SvREFCNT_dec(PL_endav);