From 05eb4216c7614de17622622f4bc9774645acc0f0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 May 2003 14:43:48 +0000
Subject: handle  use foo()  and  use foo ("x", "y")

---
 perl_checker.src/parser.mly | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl_checker.src/parser.mly')

diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly
index ceb3c41..a2b3bc1 100644
--- a/perl_checker.src/parser.mly
+++ b/perl_checker.src/parser.mly
@@ -168,7 +168,7 @@ decl:
 
 use:
 | use_word listexpr semi_colon {sp_n($2); new_esp M_none (Use($1.any, $2.any.expr)) $1 $3}
-| use_revision RAW_IDENT_PAREN PAREN PAREN_END {new_esp M_none (Use(to_Ident $2, [])) $1 $2}
+| use_revision word_paren PAREN listexpr PAREN_END {sp_0($4); sp_0_or_cr($5); new_esp M_none (Use($2.any, $4.any.expr)) $1 $5}
 
 use_word:
 | use_revision word comma {new_esp M_none $2.any $1 $3}
-- 
cgit v1.2.1