From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 5 Nov 2005 08:32:39 +0000 (+0000)
Subject: dorassign doesn't need --SP;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2bd49cfcbebe5157c802aba335cb6f76b1afa6fd;p=p5sagit%2Fp5-mst-13.2.git

dorassign doesn't need --SP;

p4raw-id: //depot/perl@26010
---

diff --git a/pp_hot.c b/pp_hot.c
index 2a08525..7b80467 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -336,7 +336,8 @@ PP(pp_defined)
     if(op_type == OP_DOR || op_type == OP_DORASSIGN) {
         sv = TOPs;
         if (!sv || !SvANY(sv)) {
-            --SP;
+	    if (op_type == OP_DOR)
+		--SP;
             RETURNOP(cLOGOP->op_other);
         }
     } else if (op_type == OP_DEFINED) {