Commit: 9bbedb86164bb9e5957bc86a33651aea6eca41c0 - libnet-dhcp6-perl (git)

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

Commit MetaInfo

• Revision: 9bbedb86164bb9e5957bc86a33651aea6eca41c0 (tree)
• Zeit: 2021-08-11 08:34:35
• Autor: dyknon <dyknon@user...>
• Commiter: dyknon

Log Message

for test

Ändern Zusammenfassung

• modified: Net/DHCP6/MessageExchange.pm

Diff

--- a/Net/DHCP6/MessageExchange.pm
+++ b/Net/DHCP6/MessageExchange.pm
@@ -198,11 +198,13 @@ sub recv {
     my $from = $self->sock->recv($buf, $bufsize, 0);
     if(!defined $from){
         if($! == EAGAIN || $! == EWOULDBLOCK){
+            print "not recved";
             return undef;
         }else{
             die "socket io error: $!";
         }
     }
+    print(map{sprintf(" %02x", $_)} unpack("C*", $buf));
     my $parsed = eval { Net::DHCP6::Message->parse($buf); };
     if(wantarray){
         ($parsed, $from);