summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/parser.mly
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-05-23 13:45:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-05-23 13:45:12 +0000
commit23d1206401f04a5445f66a56bb7fd487ae8083e0 (patch)
tree0f806f9ce5d3dc501b4289269c0b4787c068ec44 /perl_checker.src/parser.mly
parentc9bfa38fe2413feb0c4495242fa8886c7f4669d3 (diff)
downloadperl_checker-23d1206401f04a5445f66a56bb7fd487ae8083e0.tar
perl_checker-23d1206401f04a5445f66a56bb7fd487ae8083e0.tar.gz
perl_checker-23d1206401f04a5445f66a56bb7fd487ae8083e0.tar.bz2
perl_checker-23d1206401f04a5445f66a56bb7fd487ae8083e0.tar.xz
perl_checker-23d1206401f04a5445f66a56bb7fd487ae8083e0.zip
- suggest any instead of grep in scalar context
- suggest foreach instead of map in empty context
Diffstat (limited to 'perl_checker.src/parser.mly')
-rw-r--r--perl_checker.src/parser.mly2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly
index 0395859..d2dc1fd 100644
--- a/perl_checker.src/parser.mly
+++ b/perl_checker.src/parser.mly
@@ -267,7 +267,7 @@ term:
| DECR term {sp_0($2); mcontext_check M_int $2; to_Call_op_ (M_mixed [M_int ; M_none]) P_tight "--" [$2.any.expr] $1 $2}
| term INCR {sp_0($2); mcontext_check M_int $1; to_Call_op_ (M_mixed [M_int ; M_none]) P_tight "++ post" [$1.any.expr] $1 $2}
| term DECR {sp_0($2); mcontext_check M_int $1; to_Call_op_ (M_mixed [M_int ; M_none]) P_tight "-- post" [$1.any.expr] $1 $2}
-| NOT argexpr {warn_rule "don't use \"not\", use \"!\" instead"; to_Call_op_ (mcontext_unop M_scalar $2) P_and "not" ($2.any.expr) $1 $2}
+| NOT argexpr {warn_rule "don't use \"not\", use \"!\" instead"; to_Call_op_ (mcontext_unop_l M_scalar $2) P_and "not" ($2.any.expr) $1 $2}
/* Constructors for anonymous data */