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 | cefb5b411da34efe63a588828410cfe4adc5563f (patch) | |
| tree | 6075fcb999352a7cd749e6ad29dbb248b6d9c04f /perl_checker.src/parser.mly | |
| parent | c8343eb58ad633426335e5bb3f1d0d1a89730a46 (diff) | |
| download | perl_checker-cefb5b411da34efe63a588828410cfe4adc5563f.tar perl_checker-cefb5b411da34efe63a588828410cfe4adc5563f.tar.gz perl_checker-cefb5b411da34efe63a588828410cfe4adc5563f.tar.bz2 perl_checker-cefb5b411da34efe63a588828410cfe4adc5563f.tar.xz perl_checker-cefb5b411da34efe63a588828410cfe4adc5563f.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 ...\"" } |