summaryrefslogtreecommitdiffstats
path: root/src/parser_helper.ml
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-27 17:15:39 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-27 17:15:39 +0000
commit548d08f3203a1fae87c5de54abef50c944cef76d (patch)
treef42fced50b2c815f8d229ef4e81cb347d4baa289 /src/parser_helper.ml
parent1be330359276830837fd53120f8ee0e428f4ecc7 (diff)
downloadperl_checker-548d08f3203a1fae87c5de54abef50c944cef76d.tar
perl_checker-548d08f3203a1fae87c5de54abef50c944cef76d.tar.gz
perl_checker-548d08f3203a1fae87c5de54abef50c944cef76d.tar.bz2
perl_checker-548d08f3203a1fae87c5de54abef50c944cef76d.tar.xz
perl_checker-548d08f3203a1fae87c5de54abef50c944cef76d.zip
recognize "%f" in printf strings
Diffstat (limited to 'src/parser_helper.ml')
-rw-r--r--src/parser_helper.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/parser_helper.ml b/src/parser_helper.ml
index d798e14..2a8d2c5 100644
--- a/src/parser_helper.ml
+++ b/src/parser_helper.ml
@@ -850,6 +850,7 @@ let check_format_a_la_printf s pos =
let contexts =
match s.[i' + 1] with
| '%' -> contexts
+ | 'f' -> M_float :: contexts
| 'd' -> M_int :: contexts
| 's' | 'c' -> M_string :: contexts
| c -> warn [Warn_strange] (pos + i', pos + i') (sprintf "invalid command %%%c" c); contexts