Fix the overflow warning to just check for an error.

Fix the overflow warning to identify the right op.

diff --git a/pp_sys.c b/pp_sys.c
index 1e445da..ad39804 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4470,9 +4470,11 @@ PP(pp_gmtime)
     else
        err = gmtime64_r(&when, &tmbuf);
 
-    if( (tmbuf.tm_year + 1900) < 0 )
+    if( err == NULL ) {
+       char *opname = PL_op->op_type == OP_LOCALTIME ? "localtime" : "gmtime";
        Perl_warner(aTHX_ packWARN(WARN_OVERFLOW),
-                   "local/gmtime under/overflowed the year");
+                   "%s under/overflowed the year", opname);
+    }
 
     if (GIMME != G_ARRAY) {    /* scalar context */
        SV *tsv;