Restore also the locale test to no-sprintf-taint state.

Fixes the bug 20001127.003.

p4raw-id: //depot/perl@7888

diff --git a/sv.c b/sv.c
index a6e453f..d7b4c8b 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -6623,8 +6623,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
                *--eptr = '#';
            *--eptr = '%';
 
-           /* No taint.  Otherwise we are in the strange
-            * situaiton where printf() taints but print($float) doesn't.
+           /* No taint.  Otherwise we are in the strange situation
+            * where printf() taints but print($float) doesn't.
             * --jhi */
            (void)sprintf(PL_efloatbuf, eptr, nv);
 

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 2b4089e..61528b3 100755 (executable)
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -80,9 +80,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);