diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:24:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:24:27 +0000 |
| commit | 3e374c857eccccc6929f86daea3da51e3dd6f7f1 (patch) | |
| tree | 33aad4edcf9e2da2158da92c9c01221c88b2aa56 | |
| parent | ba69827bc5850d8e2ffa3c83bd1cfc5b95eb8c5d (diff) | |
| download | perl-MDK-Common-3e374c857eccccc6929f86daea3da51e3dd6f7f1.tar perl-MDK-Common-3e374c857eccccc6929f86daea3da51e3dd6f7f1.tar.gz perl-MDK-Common-3e374c857eccccc6929f86daea3da51e3dd6f7f1.tar.bz2 perl-MDK-Common-3e374c857eccccc6929f86daea3da51e3dd6f7f1.tar.xz perl-MDK-Common-3e374c857eccccc6929f86daea3da51e3dd6f7f1.zip | |
*** empty log message ***
| -rw-r--r-- | perl_checker.src/parser.mly | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly index d9ef7b2..6e76ad6 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -323,7 +323,7 @@ arrayref: | arrayref_start BRACKET expr BRACKET_END ARRAYREF_END {sp_p($2); sp_p($4); sp_0($5); fst $1 @ [Ref(I_hash, sndfst $3)], pos_range $1 $5} parenthesized: | parenthesized_start PAREN_END {sp_0_or_cr($2); ((if fst $1 = [] then P_tok else P_paren P_comma), fst $1), pos_range $1 $2} -| parenthesized_start expr PAREN_END {sp_0_or_cr($3); (P_paren(if fst $1 = [] then fstfst $2 else P_comma), fst $1 @ [sndfst $2]), pos_range $1 $3} +| parenthesized_start expr PAREN_END {sp_0_or_cr($3); (P_paren(if fst $1 = [] then fstfst $2 else P_comma), fst $1 @ [(if fst $1 = [] then prio_lo P_loose else prio_lo_after P_comma) $2]), pos_range $1 $3} | parenthesized_start BRACKET expr BRACKET_END PAREN_END {sp_p($4); sp_0_or_cr($5); (P_paren(if fst $1 = [] then P_expr else P_comma), fst $1 @ [Ref(I_hash, sndfst $3)]), pos_range $1 $5} arrayref_start: |