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/tree.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/tree.ml')
| -rw-r--r-- | perl_checker.src/tree.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/perl_checker.src/tree.ml b/perl_checker.src/tree.ml index 7e1488d..002548f 100644 --- a/perl_checker.src/tree.ml +++ b/perl_checker.src/tree.ml @@ -79,8 +79,6 @@ let get_current_package t = [ None, t ] let from_qw_raw = function - | Call_op("qw", [ Raw_string(s, pos)], _) -> - List.map (fun symbol -> symbol, pos) (words s) | String([s, List []], pos) -> [ s, pos ] | String(_, pos) -> warn_with_pos pos "not recognised yet" ; |