diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-27 14:32:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-27 14:32:34 +0000 |
| commit | ff9121f83234ac688fedcab1b551e1dd9488bec0 (patch) | |
| tree | 19f66594f097e7441c133a471e9ecf2cb056e0a1 /t/pragma/locale.t | |
| parent | 862957969a804e686d352c3c85a09ceac5260a7c (diff) | |
| download | perl-ff9121f83234ac688fedcab1b551e1dd9488bec0.tar.gz | |
Restore also the locale test to no-sprintf-taint state.
Fixes the bug 20001127.003.
p4raw-id: //depot/perl@7888
Diffstat (limited to 't/pragma/locale.t')
| -rwxr-xr-x | t/pragma/locale.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 2b4089e571..61528b35c3 100755 --- 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); |