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 | 906606a48d333ba799cbd3ba6fe494893ca1f644 (patch) | |
| tree | 29c9ba2aee0c9df28995d1dc1954379d451b7b18 | |
| parent | 0eed9c8cc0e8ec742489c5cbec73088dfdc485e0 (diff) | |
| download | perl_checker-906606a48d333ba799cbd3ba6fe494893ca1f644.tar perl_checker-906606a48d333ba799cbd3ba6fe494893ca1f644.tar.gz perl_checker-906606a48d333ba799cbd3ba6fe494893ca1f644.tar.bz2 perl_checker-906606a48d333ba799cbd3ba6fe494893ca1f644.tar.xz perl_checker-906606a48d333ba799cbd3ba6fe494893ca1f644.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: |