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 | 65df1801fe6cc17fb0a8c14d3870261df40bade2 (patch) | |
| tree | 166e9efcdb4a551d719b81bc60041399687d7ab1 /perl_checker.src/global_checks.ml | |
| parent | f7571319b3d693059705b5d20682bea44cb7d195 (diff) | |
| download | perl-MDK-Common-65df1801fe6cc17fb0a8c14d3870261df40bade2.tar perl-MDK-Common-65df1801fe6cc17fb0a8c14d3870261df40bade2.tar.gz perl-MDK-Common-65df1801fe6cc17fb0a8c14d3870261df40bade2.tar.bz2 perl-MDK-Common-65df1801fe6cc17fb0a8c14d3870261df40bade2.tar.xz perl-MDK-Common-65df1801fe6cc17fb0a8c14d3870261df40bade2.zip | |
fix checking calls with no parameter
Diffstat (limited to 'perl_checker.src/global_checks.ml')
| -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 |