A builtin hard upper bound for sLOCALTIME_max to prevent AIX from stalling in the...

diff --git a/U/perl/time_size.U b/U/perl/time_size.U
index 0741ea1..21a9486 100644 (file)
--- a/U/perl/time_size.U
+++ b/U/perl/time_size.U
@@ -150,7 +150,10 @@ time_t pt;
 
 void local_check (time_t t)
 {
-    tmp = localtime (&t);
+    if (sizeof (time_t) > 4 && t > 0x7ffffffffffff000LL)
+       tmp = NULL;
+    else
+       tmp = localtime (&t);
     if (tmp == NULL || tmp->tm_year < -1900)
        tmp = NULL;
     else