- perl_checker:

  - check occurences of "$foo ? $foo : $bar"
  - disallow "fq::f args" when args is not parenthesized

1 files changed, 9 insertions, 5 deletions

diff --git a/perl_checker.src/parser_helper.mli b/perl_checker.src/parser_helper.mli
index d1aba18..faf5c45 100644
--- a/perl_checker.src/parser_helper.mli
+++ b/perl_checker.src/parser_helper.mli
@@ -1,7 +1,4 @@
 val bpos : int * int
-val pot_strings : (string * string list) list ref
-val pot_strings_and_file : (string, string) Hashtbl.t
-val po_comments : string list ref
 val raw_pos2pos : 'a * 'b -> string * 'a * 'b
 val pos_range :
   'a * ('b * (int * int)) -> 'c * ('d * (int * int)) -> string * int * int
@@ -60,6 +57,9 @@ val check_word_alone : Types.fromparser * 'a -> Types.fromparser
 val check_parenthesized_first_argexpr :
   string ->
   ('a * Types.fromparser list) * (Types.spaces * (int * 'b)) -> unit
+val check_parenthesized_first_argexpr_with_Ident :
+  Types.fromparser ->
+  ('a * Types.fromparser list) * (Types.spaces * (int * 'b)) -> unit
 val check_hash_subscript :
   ('a * Types.fromparser) * ('b * (int * int)) -> unit
 val check_arrow_needed :
@@ -129,6 +129,12 @@ val to_Call_op_ :
   'b * (int * int) -> ('a * Types.fromparser) * ('b * (int * int))
 val followed_by_comma :
   ('a * Types.fromparser list) * 'b -> bool * 'c -> Types.fromparser list
+val pot_strings : (string * string list) list ref
+val pot_strings_and_file : (string, string) Hashtbl.t
+val po_comments : string list ref
+val po_comment : string * 'a -> unit
+val check_format_a_la_printf : string -> int -> unit
+val generate_pot : string -> unit
 val call_func :
   bool -> Types.fromparser * Types.fromparser list -> Types.fromparser
 val call : Types.fromparser * Types.fromparser list -> Types.fromparser
@@ -165,5 +171,3 @@ val from_PATTERN_SUBST :
   ((string * ((int * int) * 'a) list) list *
    (string * ((int * int) * 'a) list) list * string) *
   ('b * (int * int)) -> Types.fromparser list
-val po_comment : string * 'a -> unit
-val generate_pot : string -> unit