+ Fix #590

2017-02-13 17:23:11 +01:00 · 2017-02-13 17:23:11 +01:00 · 2dcb4bc571
parent e75c5304d9
commit 2dcb4bc571
1 changed files with 2 additions and 0 deletions
--- a/os/windows/local/mode/ntp.pm
+++ b/os/windows/local/mode/ntp.pm
@ -101,6 +101,8 @@ sub run {
    my %ntp;
    # Need to set following patch: https://rt.cpan.org/Public/Bug/Display.html?id=59607
    eval {
+        local $SIG{__WARN__} = sub { die $_[0] };
+        
        %ntp = Net::NTP::get_ntp_response($ntp_hostname, $self->{option_results}->{ntp_port});
    };
    if ($@) {