summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-26 13:40:32 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-26 13:40:32 +0000
commitec016bd21752b44c6d9a255b61ad6fccc6c1c07f (patch)
tree04be3647bbe3b66606a5b24633ee4b9381991f25
parent55b89e5b576264e738827bc5f6dbfb0483b59207 (diff)
downloadperl_checker-ec016bd21752b44c6d9a255b61ad6fccc6c1c07f.tar
perl_checker-ec016bd21752b44c6d9a255b61ad6fccc6c1c07f.tar.gz
perl_checker-ec016bd21752b44c6d9a255b61ad6fccc6c1c07f.tar.bz2
perl_checker-ec016bd21752b44c6d9a255b61ad6fccc6c1c07f.tar.xz
perl_checker-ec016bd21752b44c6d9a255b61ad6fccc6c1c07f.zip
remove unused function
-rw-r--r--perl_checker.src/parser_helper.ml9
-rw-r--r--perl_checker.src/parser_helper.mli3
2 files changed, 0 insertions, 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 :