diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:39:32 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:39:32 +0000 |
commit | 7149b65d1849bea7be351560e46dd13b3ce748f6 (patch) | |
tree | d06faa2ae718ec8e7f78c8eaecb3d50daa1f49e7 /perl_checker.src/parser.mly | |
parent | 749daba8115512bb19567dc4404da035c583c7ab (diff) | |
download | perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar.gz perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar.bz2 perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.tar.xz perl-MDK-Common-7149b65d1849bea7be351560e46dd13b3ce748f6.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 6e76ad6..22911cb 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -235,7 +235,7 @@ term: | term DECR {sp_0($2); (P_tight, Call_op("-- post", [sndfst $1])), pos_range $1 $2} | NOT argexpr {(P_and, Call_op("not", sndfst $2)), pos_range $1 $2} -| DEFINED scalar {(P_expr, Call(Ident(None, "defined", get_pos $1), [fst $2])), pos_range $1 $2} +| DEFINED variable {(P_expr, Call(Ident(None, "defined", get_pos $1), [fst $2])), pos_range $1 $2} | DEFINED subscripted {(P_expr, Call(Ident(None, "defined", get_pos $1), [fst $2])), pos_range $1 $2} | DEFINED parenthesized {(P_expr, Call(Ident(None, "defined", get_pos $1), sndfst $2)), pos_range $1 $2} | DEFINED word_paren parenthesized {(P_expr, Call(Ident(None, "defined", get_pos $1), [Call(fst $2, sndfst $3)])), pos_range $1 $3} |