From bbba250181d3b581414aeef11430420dbb0df694 Mon Sep 17 00:00:00 2001
From: Robert Martin-Legene <robert@nic.ar>
Date: Tue, 6 Apr 2021 06:11:33 +0000
Subject: [PATCH] A veces NIST no contesta como deberian.
---
bin/localstate.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/bin/localstate.pl b/bin/localstate.pl
index 96ab9e8..c3e2ac0 100755
--- a/bin/localstate.pl
+++ b/bin/localstate.pl
@@ -174,7 +174,7 @@ my $s = IO::Socket::INET->new(
if ( defined $s )
{
$s->recv(my $data, 8);
- my $i = unpack('N', $data);
+ my $i = unpack('N', $data) || 0;
if ( $i > 0 )
{
# rfc868 offset (seconds from 1900-01-01 to 1970-01-01)
--
GitLab