diff options
-rw-r--r-- | Net/Time.pm | 4 |
1 files 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; |