diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-05-16 11:52:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-05-16 11:52:21 +0000 |
| commit | 42d6f9a682a80f1876eb568bd14c2583256d8893 (patch) | |
| tree | 60a52430507c9a5504adb7b0e67a572b237cdc1a /perl_checker.src/parser_helper.ml | |
| parent | e14bc2818a40a3b150859a57102c18585c5f5e86 (diff) | |
| download | perl_checker-42d6f9a682a80f1876eb568bd14c2583256d8893.tar perl_checker-42d6f9a682a80f1876eb568bd14c2583256d8893.tar.gz perl_checker-42d6f9a682a80f1876eb568bd14c2583256d8893.tar.bz2 perl_checker-42d6f9a682a80f1876eb568bd14c2583256d8893.tar.xz perl_checker-42d6f9a682a80f1876eb568bd14c2583256d8893.zip | |
correctly warn about the missing space in "my ($a,$b, $c);"
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 14f288f..0e37cf5 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -473,7 +473,8 @@ 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, _), _) } = +let check_my_our_paren { any = ((comma_closed, _), l) } after_esp = + (if l = [] then sp_0 else sp_1) after_esp ; if not comma_closed then die_rule "syntax error" let check_simple_pattern = function |