diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-12-16 21:17:58 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-12-16 21:17:58 +0000 |
| commit | f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360 (patch) | |
| tree | 951cb6baabc8d6f2d69c6161cb74f9d1caf5a64c /perl_checker.src/parser_helper.ml | |
| parent | 16f522028d0ac4621e2d1134ebdb208ff739f91d (diff) | |
| download | perl-MDK-Common-f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360.tar perl-MDK-Common-f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360.tar.gz perl-MDK-Common-f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360.tar.bz2 perl-MDK-Common-f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360.tar.xz perl-MDK-Common-f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360.zip | |
- drop internally operator "qw" by rewriting qw(...) into a list of strings
- as a side effect "foo" . qw(bar boo) is now detected
- allow pop(@l) (with explicit parentheses)
Diffstat (limited to 'perl_checker.src/parser_helper.ml')
| -rw-r--r-- | perl_checker.src/parser_helper.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_checker.src/parser_helper.ml b/perl_checker.src/parser_helper.ml index 1a54536..a7d48f1 100644 --- a/perl_checker.src/parser_helper.ml +++ b/perl_checker.src/parser_helper.ml @@ -409,7 +409,6 @@ let check_ternary_paras(cond, a, b) = | Num _ | Raw_string _ | String ([(_, List [])], _) - | Call_op("qw", _, _) -> true | Call(Deref(I_func, Ident(None, "N", _)), [ List(String _ :: l) ]) | Call_op(".", l, _) @@ -826,7 +825,8 @@ let call_raw force_non_builtin_func (e, para) = | "pop" | "shift" -> (match para with | [] - | [ Deref(I_array, _) ] -> () + | [ Deref(I_array, _) ] + | [ List [ Deref(I_array, _) ] ] -> () | _ -> warn_rule (f ^ " is expecting an array and nothing else")) ; None | _ -> None |