From: Chip Salzenberg <chip@perl.com>
Date: Fri, 21 Mar 1997 02:44:56 +0000 (+1200)
Subject: Fix botch with G_NOARGS; PUSHMARK *is* required
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f51d4af592c9b887ce9e5cd81ee4be01c8f37a36;p=p5sagit%2Fp5-mst-13.2.git

Fix botch with G_NOARGS; PUSHMARK *is* required
---

diff --git a/perl.c b/perl.c
index dfda39f..fd39779 100644
--- a/perl.c
+++ b/perl.c
@@ -979,10 +979,7 @@ I32 flags;		/* See G_* flags in cop.h */
     }
 
     Zero(&myop, 1, LOGOP);
-    if (flags & G_NOARGS) {
-	PUSHMARK(sp);
-    }
-    else
+    if (!(flags & G_NOARGS))
 	myop.op_flags |= OPf_STACKED;
     myop.op_next = Nullop;
     myop.op_flags |= OPf_KNOW;