diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-11 02:03:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-11 02:03:46 +0000 |
| commit | 85cde02d3779e0b9f6a3c392abad972112372e84 (patch) | |
| tree | ef9c93ab026979b3fc29aff2b409ae4c2e894fad /perl_checker.src | |
| parent | 9104fcd3fadb64ceb0ece125e68738a652050200 (diff) | |
| download | perl_checker-85cde02d3779e0b9f6a3c392abad972112372e84.tar perl_checker-85cde02d3779e0b9f6a3c392abad972112372e84.tar.gz perl_checker-85cde02d3779e0b9f6a3c392abad972112372e84.tar.bz2 perl_checker-85cde02d3779e0b9f6a3c392abad972112372e84.tar.xz perl_checker-85cde02d3779e0b9f6a3c392abad972112372e84.zip | |
fix checking calls with no parameter
Diffstat (limited to 'perl_checker.src')
| -rw-r--r-- | perl_checker.src/global_checks.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index fc7b4c7..ef56357 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -82,6 +82,7 @@ let do_para_comply_with_prototype para proto = match proto with | Some proto -> (match para with + | [] as paras | [List [List paras]] | [List paras] -> if List.exists is_not_a_scalar paras then 0 else |