Change 11264 by jhi@alpha on 2001/07/11 00:27:17
Subject: [PATCH] Small fix to pp_gmtime
From: Artur Bergman <[EMAIL PROTECTED]>
Date: Tue, 10 Jul 2001 19:54:52 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp_sys.c#246 edit
Differences ...
==== //depot/perl/pp_sys.c#246 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c.~1~ Tue Jul 10 18:30:05 2001
+++ perl/pp_sys.c Tue Jul 10 18:30:05 2001
@@ -4323,10 +4323,10 @@
else
tmbuf = gmtime(&when);
- EXTEND(SP, 9);
- EXTEND_MORTAL(9);
if (GIMME != G_ARRAY) {
SV *tsv;
+ EXTEND(SP, 1);
+ EXTEND_MORTAL(1);
if (!tmbuf)
RETPUSHUNDEF;
tsv = Perl_newSVpvf(aTHX_ "%s %s %2d %02d:%02d:%02d %d",
@@ -4340,7 +4340,9 @@
PUSHs(sv_2mortal(tsv));
}
else if (tmbuf) {
- PUSHs(sv_2mortal(newSViv(tmbuf->tm_sec)));
+ EXTEND(SP, 9);
+ EXTEND_MORTAL(9);
+ PUSHs(sv_2mortal(newSViv(tmbuf->tm_sec)));
PUSHs(sv_2mortal(newSViv(tmbuf->tm_min)));
PUSHs(sv_2mortal(newSViv(tmbuf->tm_hour)));
PUSHs(sv_2mortal(newSViv(tmbuf->tm_mday)));
End of Patch.
