diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-31 23:42:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-31 23:42:56 +0000 |
| commit | 7cfcdf208eb7eff0b6f8313f1a5b14880681119d (patch) | |
| tree | d986b106502764f3ea8d438cc69ec7c362dc1fd3 /pp_sys.c | |
| parent | c3151b5bff1507258038c60db5a81e30ddecd245 (diff) | |
| download | perl-7cfcdf208eb7eff0b6f8313f1a5b14880681119d.tar.gz | |
pp_gmtime() assumed that newSVpvf %d would take C ints,
an assumption which #5905 demolished.
p4raw-id: //depot/cfgperl@5907
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -4086,14 +4086,14 @@ PP(pp_gmtime) SV *tsv; if (!tmbuf) RETPUSHUNDEF; - tsv = Perl_newSVpvf(aTHX_ "%s %s %2d %02d:%02d:%02d %d", + tsv = Perl_newSVpvf(aTHX_ "%s %s %2"IVdf" %02"IVdf":%02"IVdf":%02"IVdf" %"IVdf, dayname[tmbuf->tm_wday], monname[tmbuf->tm_mon], - tmbuf->tm_mday, - tmbuf->tm_hour, - tmbuf->tm_min, - tmbuf->tm_sec, - tmbuf->tm_year + 1900); + (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) { |