summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/parser.mly
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-05-26 14:43:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-05-26 14:43:48 +0000
commit6d28f2c186d0b1967b3f25e6933e4a509d59a9a0 (patch)
tree027aea1c01a4403819bfd3bf3ae977ffb1761c9c /perl_checker.src/parser.mly
parent006dcb333615841ec541648b81df1780d766b364 (diff)
downloadperl_checker-6d28f2c186d0b1967b3f25e6933e4a509d59a9a0.tar
perl_checker-6d28f2c186d0b1967b3f25e6933e4a509d59a9a0.tar.gz
perl_checker-6d28f2c186d0b1967b3f25e6933e4a509d59a9a0.tar.bz2
perl_checker-6d28f2c186d0b1967b3f25e6933e4a509d59a9a0.tar.xz
perl_checker-6d28f2c186d0b1967b3f25e6933e4a509d59a9a0.zip
handle use foo() and use foo ("x", "y")
Diffstat (limited to 'perl_checker.src/parser.mly')
-rw-r--r--perl_checker.src/parser.mly2
1 files changed, 1 insertions, 1 deletions
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}