diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-04 17:26:14 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-04 17:26:14 +0000 |
| commit | be28567c7b4a66645fbbd71964c8c6819169207c (patch) | |
| tree | e23769cbb6b905b96482f2ad825b7597b29eaa21 /pp_sys.c | |
| parent | 21a311eead0eeb6ab139ee2e94076b4d84d76c6f (diff) | |
| download | perl-be28567c7b4a66645fbbd71964c8c6819169207c.tar.gz | |
change#5905 wasn't quite right--it's intent only applies when arguments
to sv_vcatpvfn() are SVs instead of C types; back out change#5907 as well
p4raw-link: @5907 on //depot/cfgperl: 7cfcdf208eb7eff0b6f8313f1a5b14880681119d
p4raw-link: @5905 on //depot/cfgperl: 686fa4bb8e88f0c9a36218cdbf3c49f4a7b93b2a
p4raw-id: //depot/perl@6064
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -4085,14 +4085,14 @@ PP(pp_gmtime) SV *tsv; if (!tmbuf) RETPUSHUNDEF; - tsv = Perl_newSVpvf(aTHX_ "%s %s %2"IVdf" %02"IVdf":%02"IVdf":%02"IVdf" %"IVdf, + tsv = Perl_newSVpvf(aTHX_ "%s %s %2d %02d:%02d:%02d %d", 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); + tmbuf->tm_mday, + tmbuf->tm_hour, + tmbuf->tm_min, + tmbuf->tm_sec, + tmbuf->tm_year + 1900); PUSHs(sv_2mortal(tsv)); } else if (tmbuf) { |