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

formatted result looks nonstandard

p4raw-id: //depot/perl@4130

1 files changed, 3 insertions, 3 deletions

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 82adcf3fb8..c453c47bd1 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -78,9 +78,9 @@ check_taint       7, "\L$a";
 check_taint       8, lcfirst($a);
 check_taint       9, "\l$a";
 
-check_taint      10, sprintf('%e', 123.456);
-check_taint      11, sprintf('%f', 123.456);
-check_taint      12, sprintf('%g', 123.456);
+check_taint_not  10, sprintf('%e', 123.456);
+check_taint_not  11, sprintf('%f', 123.456);
+check_taint_not  12, sprintf('%g', 123.456);
 check_taint_not  13, sprintf('%d', 123.456);
 check_taint_not  14, sprintf('%x', 123.456);