diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-03-21 14:44:56 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-22 15:34:25 +1200 |
| commit | f51d4af592c9b887ce9e5cd81ee4be01c8f37a36 (patch) | |
| tree | c41f2a33aa645b3d7132aa86219411d76277c410 /perl.c | |
| parent | 9a48f954e7ff810c2e5e8489c1ec22a718c4bb1c (diff) | |
| download | perl-f51d4af592c9b887ce9e5cd81ee4be01c8f37a36.tar.gz | |
Fix botch with G_NOARGS; PUSHMARK *is* required
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -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; |