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 | 56f08017d8ebe9f63e0ac0160cb526055db7602e (patch) | |
| tree | 7fd749bea08ee64cecdb3a9753c53b055bb06fff /perl_checker.src | |
| parent | 17d1ff7aca81f8002dfcfb8974873a2cc0a16a86 (diff) | |
| download | perl-MDK-Common-56f08017d8ebe9f63e0ac0160cb526055db7602e.tar perl-MDK-Common-56f08017d8ebe9f63e0ac0160cb526055db7602e.tar.gz perl-MDK-Common-56f08017d8ebe9f63e0ac0160cb526055db7602e.tar.bz2 perl-MDK-Common-56f08017d8ebe9f63e0ac0160cb526055db7602e.tar.xz perl-MDK-Common-56f08017d8ebe9f63e0ac0160cb526055db7602e.zip | |
fix checking dropped value in some cases
Diffstat (limited to 'perl_checker.src')
| -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 ; |