From ec016bd21752b44c6d9a255b61ad6fccc6c1c07f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 26 Nov 2004 13:40:32 +0000 Subject: remove unused function --- perl_checker.src/parser_helper.ml | 9 --------- perl_checker.src/parser_helper.mli | 3 --- 2 files changed, 12 deletions(-) diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 3a0927a..c0d27f1 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -598,15 +598,6 @@ let check_block_lines esp_lines esp_BRACKET_END = (if List.hd l = Semi_colon then sp_0 else sp_p) esp_lines ; check_block_expr (snd esp_lines.any) (last l) esp_lines esp_BRACKET_END -let check_block_ref esp_lines esp_BRACKET_END = - let l = esp_lines.any in - if l <> [] && List.hd l = Semi_colon - then (sp_0 esp_lines ; sp_p esp_BRACKET_END) - else sp_same esp_lines esp_BRACKET_END ; - - if esp_BRACKET_END.spaces <> Space_cr then - (if l <> [] && last l = Semi_colon then warn_verb [Warn_white_space] (get_pos_end esp_lines) "spurious \";\" before closing block") - let check_unless_else elsif else_ = if elsif.any <> [] then warn [Warn_complex_expressions] elsif.pos "don't use \"elsif\" with \"unless\" (replace \"unless\" with \"if\")"; if else_.any <> [] then warn [Warn_complex_expressions] else_.pos "don't use \"else\" with \"unless\" (replace \"unless\" with \"if\")" diff --git a/perl_checker.src/parser_helper.mli b/perl_checker.src/parser_helper.mli index ae4c55a..6485011 100644 --- a/perl_checker.src/parser_helper.mli +++ b/perl_checker.src/parser_helper.mli @@ -132,9 +132,6 @@ val check_block_expr : val check_block_lines : (Types.fromparser list * bool) Types.any_spaces_pos -> 'a Types.any_spaces_pos -> unit -val check_block_ref : - Types.fromparser list Types.any_spaces_pos -> - 'a Types.any_spaces_pos -> unit val check_unless_else : 'a list Types.any_spaces_pos -> 'b list Types.any_spaces_pos -> unit val check_my_our_paren : -- cgit v1.2.1