From 87bc1a8e7cb91e78fcaec2a6f8a554500a4dc6c6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 17 Nov 2004 16:53:50 +0000 Subject: create string_of_fromparser(), needs tuning --- perl_checker.src/parser.mly | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl_checker.src/parser.mly') 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) -- cgit v1.2.1