diff options
| -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 |