diff options
| author | Robin Barker <RMBarker@cpan.org> | 1999-08-24 12:09:24 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-29 15:18:38 +0000 |
| commit | f5a29b03d6424b21aad3d841127a2c7b87eb6888 (patch) | |
| tree | e73360baf35e9600a9e80d6f413c509ef784dc26 /pp_sys.c | |
| parent | d30110745a7a78b4c83e13a8406bad8c3e3294bf (diff) | |
| download | perl-f5a29b03d6424b21aad3d841127a2c7b87eb6888.tar.gz | |
Fix scalar gmtime (and localtime) in quad environments,
bug reported by Robin Barker.
To: jhi@iki.fi
Cc: perl5-porters@perl.org
Subject: Re: [ID 19990823.009] [PATCH perl5.005_61] typo in perl.h
Message-Id: <199908241009.LAA24394@tempest.npl.co.uk>
p4raw-id: //depot/cfgperl@4045
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -3940,13 +3940,13 @@ PP(pp_gmtime) if (!tmbuf) RETPUSHUNDEF; tsv = Perl_newSVpvf(aTHX_ "%s %s %2d %02d:%02d:%02d %d", - dayname[tmbuf->tm_wday], - monname[tmbuf->tm_mon], - tmbuf->tm_mday, - tmbuf->tm_hour, - tmbuf->tm_min, - tmbuf->tm_sec, - tmbuf->tm_year + 1900); + dayname[tmbuf->tm_wday], + monname[tmbuf->tm_mon], + (IV)tmbuf->tm_mday, + (IV)tmbuf->tm_hour, + (IV)tmbuf->tm_min, + (IV)tmbuf->tm_sec, + (IV)tmbuf->tm_year + 1900); PUSHs(sv_2mortal(tsv)); } else if (tmbuf) { |