From: Chip Salzenberg <chip@atlantic.net>
Date: Sun, 29 Dec 1996 21:20:34 +0000 (+1200)
Subject: Warn on 'undef $x; $x OP 1' where OP is *=, /=, %=, or **=
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77676ba1ca148a47a08648896b0af31d1f464a3d;p=p5sagit%2Fp5-mst-13.2.git

Warn on 'undef $x; $x OP 1' where OP is *=, /=, %=, or **=
---

diff --git a/pp.c b/pp.c
index db4276e..d7725b8 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