From 006dcb333615841ec541648b81df1780d766b364 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 26 May 2003 14:14:54 +0000 Subject: correctly handle { Protocol => { val => 'Standard' } } (was broken due to the "arch => 1" hack) --- perl_checker.src/parser.mly | 1 + 1 file changed, 1 insertion(+) diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly index 3f042ae..ceb3c41 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -196,6 +196,7 @@ expr: /* Ordinary expressions; logical combinations */ argexpr: /* Expressions are a list of terms joined by commas */ | argexpr comma { new_pesp M_list P_comma $1.any.expr $1 $2} | bareword RIGHT_ARROW term {if not_simple ($3.any.expr) then sp_p($3); new_pesp M_list P_comma (followed_by_comma [$1.any] false @ [$3.any.expr]) $1 $3} +| bareword RIGHT_ARROW BRACKET expr BRACKET_END {sp_p($3); sp_p($5); new_pesp M_list P_comma (followed_by_comma [$1.any] false @ [ Ref(I_hash, $4.any.expr) ]) $1 $5} | argexpr comma term {if not_simple ($3.any.expr) then sp_p($3); new_pesp M_list P_comma (followed_by_comma $1.any.expr $2.any @ [$3.any.expr]) $1 $3} | argexpr comma BRACKET expr BRACKET_END {sp_p($3); sp_p($5); new_pesp M_list P_comma (followed_by_comma $1.any.expr $2.any @ [ Ref(I_hash, $4.any.expr) ]) $1 $5} | term %prec PREC_LOW { new_1pesp $1.any.priority [$1.any.expr] $1 } -- cgit v1.2.1