Change 11266 by jhi@alpha on 2001/07/11 00:29:13
Subject: Re: [PATCH] Small fix to pp_gmtime
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Tue, 10 Jul 2001 11:19:43 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp_ctl.c#274 edit
Differences ...
==== //depot/perl/pp_ctl.c#274 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c.~1~ Tue Jul 10 18:45:05 2001
+++ perl/pp_ctl.c Tue Jul 10 18:45:05 2001
@@ -1551,7 +1551,7 @@
if (MAXARG)
count = POPi;
- EXTEND(SP, 10);
+
for (;;) {
/* we may be in a higher stacklevel, so dig down deeper */
while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
@@ -1560,8 +1560,10 @@
cxix = dopoptosub_at(ccstack, top_si->si_cxix);
}
if (cxix < 0) {
- if (GIMME != G_ARRAY)
+ if (GIMME != G_ARRAY) {
+ EXTEND(SP, 1);
RETPUSHUNDEF;
+ }
RETURN;
}
if (PL_DBsub && cxix >= 0 &&
@@ -1583,6 +1585,7 @@
stashname = CopSTASHPV(cx->blk_oldcop);
if (GIMME != G_ARRAY) {
+ EXTEND(SP, 1);
if (!stashname)
PUSHs(&PL_sv_undef);
else {
@@ -1593,6 +1596,8 @@
RETURN;
}
+ EXTEND(SP, 10);
+
if (!stashname)
PUSHs(&PL_sv_undef);
else
End of Patch.
