Commit: 1594fda102e2bf1296757a0fa5e4326fc9ca90d6 - libnet-dhcp6-perl (git)

恥ずかしい勘違いから生まれた、DHCP6の不要かつ部分的な実装

Commit MetaInfo

• Revisão: 1594fda102e2bf1296757a0fa5e4326fc9ca90d6 (tree)
• Hora: 2021-08-11 07:13:23
• Autor: dyknon <dyknon@user...>
• Commiter: dyknon

Mensagem de Log

fixit

Mudança Sumário

• modified: Net/DHCP6/MessageExchange.pm
• modified: test.pl

Diff

--- a/Net/DHCP6/MessageExchange.pm
+++ b/Net/DHCP6/MessageExchange.pm
@@ -14,6 +14,7 @@ use Net::DHCP6::Parameters qw(
 use Socket qw/getaddrinfo AF_INET6 SOCK_DGRAM AI_PASSIVE/;
 use POSIX qw/EAGAIN EWOULDBLOCK/;
 use Time::HiRes;
+use IO::Socket::IP;
 use IO::Select;
 
 our @ISA = qw/Exporter/;

--- a/test.pl
+++ b/test.pl
@@ -17,6 +17,7 @@ open(my $aih, "-|:utf8", qw/ip -j address show/, IF) or die;
 {
     local $/;
     $ai = decode_json <$aih>;
+    $ai = [grep{%$_ != 0} @$ai];
 }
 close $aih;