diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-15 21:20:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-15 21:20:00 +0000 |
| commit | 4e5d62458a90c5f42aa03dbf4e70b19d73506f5e (patch) | |
| tree | 8d8ad7fafbb218881fbc2eaa5d025391b1cadb18 /perl_checker.src/parser_helper.ml | |
| parent | 3e23d94c2ebcb964d19dcaa3d0b7829c7f44c52e (diff) | |
| download | perl_checker-4e5d62458a90c5f42aa03dbf4e70b19d73506f5e.tar perl_checker-4e5d62458a90c5f42aa03dbf4e70b19d73506f5e.tar.gz perl_checker-4e5d62458a90c5f42aa03dbf4e70b19d73506f5e.tar.bz2 perl_checker-4e5d62458a90c5f42aa03dbf4e70b19d73506f5e.tar.xz perl_checker-4e5d62458a90c5f42aa03dbf4e70b19d73506f5e.zip | |
forbid "unless (...) { ... } else { ... }" and "unless (...) { ... } elsif (...) { ... }
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index d4c5842..0092a9f 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -466,6 +466,10 @@ let check_block_ref esp_lines esp_BRACKET_END = if esp_BRACKET_END.spaces <> Space_cr then (if l <> [] && last l = Semi_colon then warn_verb (get_pos_end esp_lines) "spurious \";\" before closing block") +let check_unless_else elsif else_ = + if elsif.any <> [] then warn elsif.pos "don't use \"elsif\" with \"unless\" (replace \"unless\" with \"if\")"; + if else_.any <> [] then warn else_.pos "don't use \"else\" with \"unless\" (replace \"unless\" with \"if\")" + let check_my_our_paren { any = ((comma_closed, _), _) } = if not comma_closed then die_rule "syntax error" |