dorassign doesn't need --SP;

p4raw-id: //depot/perl@26010

1 files changed, 2 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 2a08525cc0..7b80467df6 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) {