diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-26 00:37:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-26 00:37:30 +0000 |
| commit | 431db26a9d138a21e17caf3affe5d2131387b69f (patch) | |
| tree | 6167bde89153ce58517239d8f974b7171f89913a /perl_checker.src/parser.mly | |
| parent | 0a3eca317134e14282153c851f0dcdc6a8a54282 (diff) | |
| download | perl-MDK-Common-431db26a9d138a21e17caf3affe5d2131387b69f.tar perl-MDK-Common-431db26a9d138a21e17caf3affe5d2131387b69f.tar.gz perl-MDK-Common-431db26a9d138a21e17caf3affe5d2131387b69f.tar.bz2 perl-MDK-Common-431db26a9d138a21e17caf3affe5d2131387b69f.tar.xz perl-MDK-Common-431db26a9d138a21e17caf3affe5d2131387b69f.zip | |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/parser.mly')
| -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 2279ac1..62e10ea 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -296,7 +296,7 @@ term: | term ARROW MULT {check_MULT_is_x $3; sp_0($2); sp_0($3); (P_tok, to_Method_callP(sndfst $1, Ident(None, "x", get_pos $3), [])), sp_pos_range $1 $3} /* $foo->bar */ | NEW word { sp_n($2); (P_call_no_paren, to_Method_call(fst $2, Ident(None, "new", get_pos $1), [])), sp_pos_range $1 $2} /* new Class */ -| NEW word parenthesized { sp_n($2); sp_0($3); (P_call_no_paren, to_Method_call(fst $2, Ident(None, "new", get_pos $1), sndfst $3)), sp_pos_range $1 $3} /* new Class(...) */ +| NEW word_paren parenthesized { sp_n($2); sp_0($3); (P_call_no_paren, to_Method_call(fst $2, Ident(None, "new", get_pos $1), sndfst $3)), sp_pos_range $1 $3} /* new Class(...) */ | NEW word terminal { die_rule "you must parenthesize parameters: \"new Class(...)\" instead of \"new Class ...\"" } | NEW word variable { die_rule "you must parenthesize parameters: \"new Class(...)\" instead of \"new Class ...\"" } |