dorassign doesn't need --SP;

p4raw-id: //depot/perl@26010

diff --git a/pp_hot.c b/pp_hot.c
index 2a08525..7b80467 100644 (file)
--- 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) {