diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-12-30 09:20:34 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-01 08:59:00 +1200 |
| commit | 77676ba1ca148a47a08648896b0af31d1f464a3d (patch) | |
| tree | 9ff32c2bc6c16267d2524d337799e75644394c90 | |
| parent | 2c05e328191edda79c00062be53a6cd9c8f0be70 (diff) | |
| download | perl-77676ba1ca148a47a08648896b0af31d1f464a3d.tar.gz | |
Warn on 'undef $x; $x OP 1' where OP is *=, /=, %=, or **=
| -rw-r--r-- | pp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |