diff options
author | Tony Cook <tony@develop-help.com> | 2010-02-24 00:35:35 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2010-05-17 20:56:35 +1000 |
commit | 7eb4f9b7b5bb8d1dc09764c85ca57bc61f5b6f92 (patch) | |
tree | 8ced50840f5b94239b21df723ce52d2ec9a022bc /pp_sys.c | |
parent | 3a4f5623ceba62875ff92612b0be44b47382321a (diff) | |
download | perl-7eb4f9b7b5bb8d1dc09764c85ca57bc61f5b6f92.tar.gz |
use the correct format codes in warnings from gmtime/localtime
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -4505,22 +4505,22 @@ PP(pp_gmtime) when = (Time64_T)now; } else { - double input = Perl_floor(POPn); + NV input = Perl_floor(POPn); when = (Time64_T)input; if (when != input) { Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), - "%s(%.0f) too large", opname, input); + "%s(%.0" NVff ") too large", opname, input); } } if ( TIME_LOWER_BOUND > when ) { Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), - "%s(%.0f) too small", opname, when); + "%s(%.0" NVff ") too small", opname, when); err = NULL; } else if( when > TIME_UPPER_BOUND ) { Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), - "%s(%.0f) too large", opname, when); + "%s(%.0" NVff ") too large", opname, when); err = NULL; } else { @@ -4533,7 +4533,7 @@ PP(pp_gmtime) if (err == NULL) { /* XXX %lld broken for quads */ Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW), - "%s(%.0f) failed", opname, (double)when); + "%s(%.0" NVff ") failed", opname, when); } if (GIMME != G_ARRAY) { /* scalar context */ |