From 85cde02d3779e0b9f6a3c392abad972112372e84 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 11 Aug 2004 02:03:46 +0000 Subject: fix checking calls with no parameter --- perl_checker.src/global_checks.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'perl_checker.src/global_checks.ml') 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 -- cgit v1.2.1