p5pRT
commented
5 years ago From @joeinwap
Created by @joeinwap
The valu for $Config{sGMTIME_max} is too big. That number\, when fed into gmtime() produces undef.
#!/usr/local/bin/perl use strict;
# One-liner to fond (base 2) when GMTIME stops returning dates. # perl -le 'for (32..65) {print "$_ ".scalar gmtime 2**$_}'
# Now narow it down my $format = "%.9f %17d %s";
for ($_=55.85; $_ \< 55.95 ; $_+=0.01 ) { printf "$format\n"\, $_\, 2**$_\, scalar gmtime 2**$_ ||"undef" }
# The value in %Config is wrong use Config; $_=$Config{sGMTIME_max}; printf "\n$format perl $^V \$Config{sGMTIME_max}\n"\, log($_)/log(2)\, $_\, scalar gmtime $_ ||"undef";
$_=67767976233316804; printf "$format Actual value\n\n"\, log($_)/log(2)\, $_\, scalar gmtime $_;
system "uname -srvm";
==========================================
zathras> ./gmtime-test.pl 55.850000000 64941939961306016 Sat Jul 24 05:26:56 2057930123 55.860000000 65393646875487224 Thu Nov 4 17:33:44 2072244145 55.870000000 65848495659720976 Tue Jan 10 22:56:16 2086657730 55.880000000 66306508167441704 Wed Aug 14 04:01:44 2101171568 55.890000000 66767706404086488 Tue Dec 9 22:14:48 2115786358 55.900000000 67232112528152320 Sun Mar 2 07:38:40 2130502803 55.910000000 67699748852260744 Sat May 10 06:39:04 2145321608 55.920000000 68170637844229840 undef 55.930000000 68644802128153736 undef 55.940000000 69122264485489576 undef 55.950000000 69603047856152056 undef
55.911454483 67768036191676799 undef perl v5.28.0 $Config{sGMTIME_max} 55.911453207 67767976233316804 Sun Dec 29 12:00:00 2147483647 Actual value
Linux 4.15.0-39-generic #42-Ubuntu SMP Tue Oct 23 15:48:01 UTC 2018 x86_64
Migrated from rt.perl.org#133688 (status was 'open')
Searchable as RT133688$