diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 11:58:21 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-05 11:58:21 +0000 |
commit | bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15 (patch) | |
tree | a0cc882e09143cb0903891ccaa12e250bb6f38fb /perl_checker.src/parser_helper.ml | |
parent | 0a55fab4fbefb84ac3095cdacd018c649b67453c (diff) | |
download | perl_checker-bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15.tar perl_checker-bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15.tar.gz perl_checker-bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15.tar.bz2 perl_checker-bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15.tar.xz perl_checker-bc8a300f3e2050cb8ebd1b21ce0a84c9e8f63f15.zip |
fix checking dropped value in some cases
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
-rw-r--r-- | perl_checker.src/parser_helper.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index c52dadc..557cf26 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -1122,7 +1122,8 @@ let mcontext_check_none msg expr esp = | M_mixed l when List.exists (fun c -> c = M_none) l -> () | M_tuple l -> (match expr with - | [List l_expr] -> + | [List l_expr] + | [List l_expr ; Semi_colon] -> let rec iter = function | e::l_expr, mcontext::l -> mcontext_check_none_rec (if l = [] then msg else "value is dropped") [e] mcontext ; |