This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dorassign doesn't need --SP;
authorNicholas Clark <nick@ccl4.org>
Sat, 5 Nov 2005 08:32:39 +0000 (08:32 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 5 Nov 2005 08:32:39 +0000 (08:32 +0000)
p4raw-id: //depot/perl@26010

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) {