Skip to content
Snippets Groups Projects
Commit bbba2501 authored by Robert Martin-Legene's avatar Robert Martin-Legene
Browse files

A veces NIST no contesta como deberian.

parent 6aa05372
No related branches found
No related tags found
No related merge requests found
...@@ -174,7 +174,7 @@ my $s = IO::Socket::INET->new( ...@@ -174,7 +174,7 @@ my $s = IO::Socket::INET->new(
if ( defined $s ) if ( defined $s )
{ {
$s->recv(my $data, 8); $s->recv(my $data, 8);
my $i = unpack('N', $data); my $i = unpack('N', $data) || 0;
if ( $i > 0 ) if ( $i > 0 )
{ {
# rfc868 offset (seconds from 1900-01-01 to 1970-01-01) # rfc868 offset (seconds from 1900-01-01 to 1970-01-01)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment