diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 09:16:07 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-04-28 09:16:07 +0000 |
commit | 24d70926e1d7b47d701b767c187f6d37ee722b58 (patch) | |
tree | 535c7024558aed60acf9fc6172d8a6fe06fad2f7 /perl_checker.src/parser.mly | |
parent | f8bcbb0dbc3cb056d765305abf4fc2afa99b39a0 (diff) | |
download | perl-MDK-Common-24d70926e1d7b47d701b767c187f6d37ee722b58.tar perl-MDK-Common-24d70926e1d7b47d701b767c187f6d37ee722b58.tar.gz perl-MDK-Common-24d70926e1d7b47d701b767c187f6d37ee722b58.tar.bz2 perl-MDK-Common-24d70926e1d7b47d701b767c187f6d37ee722b58.tar.xz perl-MDK-Common-24d70926e1d7b47d701b767c187f6d37ee722b58.zip |
allow
my ($a, $b,);
since it can be useful in:
my ($a, # dqsdsq
$b, # qdfqsdf
) = @_;
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 b3dd712..d8127da 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -409,7 +409,7 @@ parenthesized_start: | parenthesized_start BRACKET expr BRACKET_END comma {(if $1.any = [] then sp_0_or_cr else sp_p)($2); sp_p($3); sp_p($4); new_esp (M_ref M_hash) ($1.any @ [hash_ref $3]) $1 $5} my_our: /* Things that can be "my"'d */ -| my_our_paren PAREN_END {sp_0($2); if snd $1.any <> [] && fstfst $1.any then die_rule "syntax error"; new_esp (M_mixed [ $1.mcontext ; M_none ]) (My_our(sndfst $1.any, snd $1.any, get_pos $1)) $1 $2} +| my_our_paren PAREN_END {sp_0($2); new_esp (M_mixed [ $1.mcontext ; M_none ]) (My_our(sndfst $1.any, snd $1.any, get_pos $1)) $1 $2} | my_our_paren SCALAR_IDENT PAREN_END {check_my_our_paren $1 $2; new_esp (M_mixed [ mtuple_context_concat $1.mcontext M_scalar; M_none ]) (My_our(sndfst $1.any, snd $1.any @ [I_scalar, snd $2.any], pos_range $1 $3)) $1 $3} | my_our_paren HASH_IDENT PAREN_END {check_my_our_paren $1 $2; new_esp (M_mixed [ M_list ; M_none ]) (My_our(sndfst $1.any, snd $1.any @ [I_hash, snd $2.any], pos_range $1 $3)) $1 $3} | my_our_paren ARRAY_IDENT PAREN_END {check_my_our_paren $1 $2; new_esp (M_mixed [ M_list ; M_none ]) (My_our(sndfst $1.any, snd $1.any @ [I_array, snd $2.any], pos_range $1 $3)) $1 $3} |