diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 13:16:15 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 13:16:15 +0000 |
| commit | a329f0c34eb3f9ec1ed4f699c2962ef1cc379a8a (patch) | |
| tree | 88d995d52710d0152fb727ad6dc73ed5f1524b85 /perl_checker.src/parser_helper.mli | |
| parent | 15698d0e3d680ce81348237b718834bd3b72ef15 (diff) | |
| download | perl-MDK-Common-a329f0c34eb3f9ec1ed4f699c2962ef1cc379a8a.tar perl-MDK-Common-a329f0c34eb3f9ec1ed4f699c2962ef1cc379a8a.tar.gz perl-MDK-Common-a329f0c34eb3f9ec1ed4f699c2962ef1cc379a8a.tar.bz2 perl-MDK-Common-a329f0c34eb3f9ec1ed4f699c2962ef1cc379a8a.tar.xz perl-MDK-Common-a329f0c34eb3f9ec1ed4f699c2962ef1cc379a8a.zip | |
- warn use of "cond ? list : ()" (use if_(cond, list) instead)
- adapt MDK::Common::* to this (using @{[]} instead of () to avoid the warning)
Diffstat (limited to 'perl_checker.src/parser_helper.mli')
| -rw-r--r-- | perl_checker.src/parser_helper.mli | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/perl_checker.src/parser_helper.mli b/perl_checker.src/parser_helper.mli index e617547..d3f5396 100644 --- a/perl_checker.src/parser_helper.mli +++ b/perl_checker.src/parser_helper.mli @@ -8,6 +8,8 @@ val get_pos : 'a * ('b * ('c * 'd)) -> string * 'c * 'd 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 @@ -60,12 +62,16 @@ 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 val check_unneeded_var_dollar_ : ('a * Types.fromparser) * ('b * (int * int)) -> unit -val check_unneeded_var_dollar_s : - ('a * Types.fromparser) * ('b * (int * int)) -> unit val check_unneeded_var_dollar_not : ('a * Types.fromparser) * ('b * (int * int)) -> unit +val check_unneeded_var_dollar_s : + ('a * Types.fromparser) * ('b * (int * int)) -> unit val check_MULT_is_x : string * 'a -> unit val check_my : string * 'a -> unit val check_foreach : string * ('a * (int * int)) -> unit |