summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorChip Salzenberg <chip@atlantic.net>1996-12-30 09:20:34 +1200
committerChip Salzenberg <chip@atlantic.net>1997-01-01 08:59:00 +1200
commit77676ba1ca148a47a08648896b0af31d1f464a3d (patch)
tree9ff32c2bc6c16267d2524d337799e75644394c90 /pp.c
parent2c05e328191edda79c00062be53a6cd9c8f0be70 (diff)
downloadperl-77676ba1ca148a47a08648896b0af31d1f464a3d.tar.gz
Warn on 'undef $x; $x OP 1' where OP is *=, /=, %=, or **=
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/pp.c b/pp.c
index db4276e5a1..d7725b8b6b 100644
--- a/pp.c
+++ b/pp.c
@@ -622,7 +622,7 @@ PP(pp_pow)
{
dSP; dATARGET; tryAMAGICbin(pow,opASSIGN);
{
- dPOPTOPnnrl_ul;
+ dPOPTOPnnrl;
SETn( pow( left, right) );
RETURN;
}
@@ -632,7 +632,7 @@ PP(pp_multiply)
{
dSP; dATARGET; tryAMAGICbin(mult,opASSIGN);
{
- dPOPTOPnnrl_ul;
+ dPOPTOPnnrl;
SETn( left * right );
RETURN;
}
@@ -642,7 +642,7 @@ PP(pp_divide)
{
dSP; dATARGET; tryAMAGICbin(div,opASSIGN);
{
- dPOPPOPnnrl_ul;
+ dPOPPOPnnrl;
double value;
if (right == 0.0)
DIE("Illegal division by zero");
@@ -684,7 +684,7 @@ PP(pp_modulo)
SETi( left % right );
}
else {
- register double left = USE_LEFT(TOPs) ? SvNV(TOPs) : 0.0;
+ register double left = TOPn;
if (left < 0.0)
SETu( (right - (U_V(-left) - 1) % right) - 1 );
else