diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-04-16 03:21:44 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1998-04-16 03:21:44 +0000 |
| commit | 81a5363e0e7948178762c8c2557fa95940afbfeb (patch) | |
| tree | 9922605fec7024de58c18ace138ae8fbe07c045d | |
| parent | 00cbac93902bbf182bb718c35c1fcc75c91d4a33 (diff) | |
| download | perl-libnet-81a5363e0e7948178762c8c2557fa95940afbfeb.tar.gz | |
Net::Time
- Correct number of seconds in a year
| -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; |