diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 20:12:35 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 20:12:35 +0000 |
| commit | cbfb3ba09991893db180d37e7498077fbe5d0042 (patch) | |
| tree | ed282c3602541cbefa25946257c82f2f8ed06729 /perl_checker.src/parser.mly | |
| parent | b35aca09551a220f0b603cbc6aad2702a0c36bfd (diff) | |
| download | perl-MDK-Common-cbfb3ba09991893db180d37e7498077fbe5d0042.tar perl-MDK-Common-cbfb3ba09991893db180d37e7498077fbe5d0042.tar.gz perl-MDK-Common-cbfb3ba09991893db180d37e7498077fbe5d0042.tar.bz2 perl-MDK-Common-cbfb3ba09991893db180d37e7498077fbe5d0042.tar.xz perl-MDK-Common-cbfb3ba09991893db180d37e7498077fbe5d0042.zip | |
*** empty log message ***
Diffstat (limited to 'perl_checker.src/parser.mly')
| -rw-r--r-- | perl_checker.src/parser.mly | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly index 7d7948a..695e88a 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -220,8 +220,8 @@ term: | term PATTERN_MATCH PATTERN {sp_n($2); sp_p($3); check_unneeded_var_dollar_ ($1); to_Call_op_(P_expr, "m//", sndfst $1 :: from_PATTERN $3) (sp_pos_range $1 $3)} -| term PATTERN_MATCH_NOT PATTERN {sp_n($2); sp_p($3); check_unneeded_var_dollar_s ($1); to_Call_op_(P_expr, "!m//", sndfst $1 :: from_PATTERN $3) (sp_pos_range $1 $3)} -| term PATTERN_MATCH PATTERN_SUBST {sp_n($2); sp_p($3); check_unneeded_var_dollar_not($1); to_Call_op_(P_expr, "s///", sndfst $1 :: from_PATTERN_SUBST $3) (sp_pos_range $1 $3)} +| term PATTERN_MATCH_NOT PATTERN {sp_n($2); sp_p($3); check_unneeded_var_dollar_not($1); to_Call_op_(P_expr, "!m//", sndfst $1 :: from_PATTERN $3) (sp_pos_range $1 $3)} +| term PATTERN_MATCH PATTERN_SUBST {sp_n($2); sp_p($3); check_unneeded_var_dollar_s ($1); to_Call_op_(P_expr, "s///", sndfst $1 :: from_PATTERN_SUBST $3) (sp_pos_range $1 $3)} | term PATTERN_MATCH_NOT PATTERN_SUBST {die_with_rawpos (sndsnd $2) "use =~ instead of !~ and negate the return value"} | term PATTERN_MATCH scalar { (P_expr, Too_complex), sp_pos_range $1 $3} |