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 | cab1e04c6458ab10cdb5ef03f125aee5668695ac (patch) | |
| tree | f75e759b610f2cc47c0a90355edbb11d95aa2c56 /perl_checker.src/parser.mly | |
| parent | c01730aac021a10c13cdbaf99813b0869e045889 (diff) | |
| download | perl-MDK-Common-cab1e04c6458ab10cdb5ef03f125aee5668695ac.tar perl-MDK-Common-cab1e04c6458ab10cdb5ef03f125aee5668695ac.tar.gz perl-MDK-Common-cab1e04c6458ab10cdb5ef03f125aee5668695ac.tar.bz2 perl-MDK-Common-cab1e04c6458ab10cdb5ef03f125aee5668695ac.tar.xz perl-MDK-Common-cab1e04c6458ab10cdb5ef03f125aee5668695ac.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) |