From f9d1e0c2bd806c577aa2d94acc8338eb3b1c9360 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 16 Dec 2003 21:17:58 +0000
Subject: - 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)

---
 perl_checker.src/tree.ml | 2 --
 1 file changed, 2 deletions(-)

(limited to 'perl_checker.src/tree.ml')

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" ;
-- 
cgit v1.2.1