net/p5-Net-NTP/files/patch-lib_Net_NTP.pm


1
2
3
4
5
6
7
8
9
10

--- lib/Net/NTP.pm.orig	2017-03-30 18:32:06 UTC
+++ lib/Net/NTP.pm
@@ -179,6 +179,7 @@ sub get_ntp_response {
         alarm(0);
     };
     alarm 0;
+    die $@ if $@;
 
     my $rectime = time; # T4
     my $pkt = Net::NTP::Packet->decode($data, $xmttime, $rectime);