summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/parser_helper.ml
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-04-28 15:44:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-04-28 15:44:19 +0000
commit9e7c99bf0e3933c1dbe21f6468c7c34644411f3b (patch)
tree845b7772b9cbfc80e06e7a00241c0972a80aac5e /perl_checker.src/parser_helper.ml
parenta833b32146d27b3b162292e7a9f6a6f7de69162a (diff)
downloadperl-MDK-Common-9e7c99bf0e3933c1dbe21f6468c7c34644411f3b.tar
perl-MDK-Common-9e7c99bf0e3933c1dbe21f6468c7c34644411f3b.tar.gz
perl-MDK-Common-9e7c99bf0e3933c1dbe21f6468c7c34644411f3b.tar.bz2
perl-MDK-Common-9e7c99bf0e3933c1dbe21f6468c7c34644411f3b.tar.xz
perl-MDK-Common-9e7c99bf0e3933c1dbe21f6468c7c34644411f3b.zip
fix typo
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
-rw-r--r--perl_checker.src/parser_helper.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml
index ad2c009..1ebaa13 100644
--- a/perl_checker.src/parser_helper.ml
+++ b/perl_checker.src/parser_helper.ml
@@ -864,6 +864,7 @@ let call_raw force_non_builtin_func (e, para) =
| [ List [ Deref(I_array, _) ] ] -> ()
| _ -> warn_rule (f ^ " is expecting an array and nothing else"))
+ | _ -> ()
);
let para' = match f with