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 | 3b34f453abb3bc38dcd48fe7288773be7b2cee33 (patch) | |
tree | b03b9db8b029dc8b1dbc38cd690fcf84e48e2f29 /perl_checker.src/parser_helper.ml | |
parent | 01b8c19bc5da6f55a2667f86939eb35961e6eabf (diff) | |
download | perl-MDK-Common-3b34f453abb3bc38dcd48fe7288773be7b2cee33.tar perl-MDK-Common-3b34f453abb3bc38dcd48fe7288773be7b2cee33.tar.gz perl-MDK-Common-3b34f453abb3bc38dcd48fe7288773be7b2cee33.tar.bz2 perl-MDK-Common-3b34f453abb3bc38dcd48fe7288773be7b2cee33.tar.xz perl-MDK-Common-3b34f453abb3bc38dcd48fe7288773be7b2cee33.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 |