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 | 27e51eef8ed312d8e853a694867e74451de70a57 (patch) | |
| tree | f42fced50b2c815f8d229ef4e81cb347d4baa289 | |
| parent | 8ef54ec02dbd4e112926ee924229eaf2b8a3f7d2 (diff) | |
| download | perl_checker-27e51eef8ed312d8e853a694867e74451de70a57.tar perl_checker-27e51eef8ed312d8e853a694867e74451de70a57.tar.gz perl_checker-27e51eef8ed312d8e853a694867e74451de70a57.tar.bz2 perl_checker-27e51eef8ed312d8e853a694867e74451de70a57.tar.xz perl_checker-27e51eef8ed312d8e853a694867e74451de70a57.zip | |
recognize "%f" in printf strings
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | src/parser_helper.ml | 1 |
2 files changed, 2 insertions, 0 deletions
@@ -2,6 +2,7 @@ o add XML::LibXML::Reader for urpmi - perl_checker: o recognize binmode() + o recognize "%f" in printf strings Version 1.2.18 - 26 March 2012, by Thierry Vignaud 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 |