diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:39 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:39 +0000 |
| commit | 548d08f3203a1fae87c5de54abef50c944cef76d (patch) | |
| tree | f42fced50b2c815f8d229ef4e81cb347d4baa289 /src/parser_helper.ml | |
| parent | 1be330359276830837fd53120f8ee0e428f4ecc7 (diff) | |
| download | perl_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.ml | 1 |
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 |