diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-17 16:53:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-17 16:53:50 +0000 |
| commit | 87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6 (patch) | |
| tree | 19620ab06de44e8d31f709fb6de091b3009ec0c3 /perl_checker.src/parser.mly | |
| parent | ecbceb20b7a21d5a31108e24106d162622044924 (diff) | |
| download | perl_checker-87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6.tar perl_checker-87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6.tar.gz perl_checker-87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6.tar.bz2 perl_checker-87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6.tar.xz perl_checker-87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6.zip | |
create string_of_fromparser(), needs tuning
Diffstat (limited to 'perl_checker.src/parser.mly')
| -rw-r--r-- | perl_checker.src/parser.mly | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly index adecfac..e3ae85b 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -268,7 +268,7 @@ term: | "-" -> (match $2.any.expr with | Ident(_, _, pos) when $2.spaces = Space_0 -> - let s = "-" ^ string_of_Ident $2.any.expr in + let s = "-" ^ string_of_fromparser $2.any.expr in warn_rule [Warn_complex_expressions] (Printf.sprintf "don't use %s, use '%s' instead" s s); new_pesp M_string P_tok (Raw_string(s, pos)) $1 $2 | _ -> to_Call_op_ (mcontext_float_or_int [$2.mcontext]) P_tight "- unary" [$2.any.expr] $1 $2) |