From 8f48fd94bf41b4c062db2a32803c4abd22b81a33 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Dec 2002 14:21:51 +0000 Subject: more restricted detection of non-use of if_()-like exprs --- perl_checker.src/parser_helper.mli | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl_checker.src/parser_helper.mli') diff --git a/perl_checker.src/parser_helper.mli b/perl_checker.src/parser_helper.mli index d3f5396..a5b0837 100644 --- a/perl_checker.src/parser_helper.mli +++ b/perl_checker.src/parser_helper.mli @@ -9,7 +9,6 @@ val var_dollar_ : Types.fromparser val var_STDOUT : Types.fromparser val is_var_dollar_ : Types.fromparser -> bool val is_var_number_match : Types.fromparser -> bool -val is_call : Types.fromparser -> bool val is_parenthesized : Types.fromparser -> bool val un_parenthesize : Types.fromparser -> Types.fromparser val un_parenthesize_full : Types.fromparser -> Types.fromparser @@ -62,10 +61,9 @@ val check_hash_subscript : ('a * Types.fromparser) * ('b * (int * int)) -> unit val check_arrow_needed : ('a * Types.fromparser) * 'b -> 'c * ('d * (int * int)) -> unit -val check_ternary_para : ('a * Types.fromparser) * ('b * (int * int)) -> unit val check_ternary_paras : - ('a * Types.fromparser) * ('b * (int * int)) -> - ('c * Types.fromparser) * ('d * (int * int)) -> unit + Types.fromparser * Types.fromparser * Types.fromparser -> + Types.fromparser list val check_unneeded_var_dollar_ : ('a * Types.fromparser) * ('b * (int * int)) -> unit val check_unneeded_var_dollar_not : -- cgit v1.2.1