From 81a5363e0e7948178762c8c2557fa95940afbfeb Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Thu, 16 Apr 1998 03:21:44 +0000 Subject: Net::Time - Correct number of seconds in a year --- Net/Time.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Net/Time.pm b/Net/Time.pm index d4fc1ed..9f2f61d 100644 --- a/Net/Time.pm +++ b/Net/Time.pm @@ -17,7 +17,7 @@ use IO::Select; @ISA = qw(Exporter); @EXPORT_OK = qw(inet_time inet_daytime); -$VERSION = "2.06"; +$VERSION = "2.07"; $TIMEOUT = 120; @@ -74,7 +74,7 @@ sub inet_time else { # otherwise return seconds since 1972, there were 17 leap years between # 1900 and 1972 - $offset = (70 * 3153600 + 17 * 86400) | 0; + $offset = (70 * 31536000 + 17 * 86400) | 0; } $time - $offset; -- cgit v1.2.3-24-ge0c7