提交: 6ffe1bd63bbde57e9d3a292081f28cc5cc68bacc - libnet-dhcp6-perl (git)

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

Commit MetaInfo

• 修訂: 6ffe1bd63bbde57e9d3a292081f28cc5cc68bacc (tree)
• 時間: 2021-08-12 20:02:11
• 作者: dyknon <dyknon@user...>
• Commiter: dyknon

Log Message

numeric VERSION

Change Summary

• modified: Net/DHCP6/AbstractOption/DUID.pm
• modified: Net/DHCP6/AbstractOption/FixedLength.pm
• modified: Net/DHCP6/AbstractOption/Ipv6AddrList.pm
• modified: Net/DHCP6/AbstractOption/List.pm
• modified: Net/DHCP6/AbstractOption/Vector.pm
• modified: Net/DHCP6/Exchange.pm
• modified: Net/DHCP6/Exchange/InfoReq.pm
• modified: Net/DHCP6/Message.pm
• modified: Net/DHCP6/Option.pm
• modified: Net/DHCP6/Option/ClientId.pm
• modified: Net/DHCP6/Option/DnsServer.pm
• modified: Net/DHCP6/Option/ElapsedTime.pm
• modified: Net/DHCP6/Option/OptionRequest.pm
• modified: Net/DHCP6/Option/ServerId.pm
• modified: Net/DHCP6/OptionList.pm
• modified: Net/DHCP6/Parameters.pm
• modified: Net/DHCP6/Value/Ipv6Addr.pm

差異

--- a/Net/DHCP6/AbstractOption/DUID.pm
+++ b/Net/DHCP6/AbstractOption/DUID.pm
@@ -8,7 +8,7 @@ use strict;
 use warnings;
 use Net::DHCP6::Option;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::Option/;
 
 sub new {

--- a/Net/DHCP6/AbstractOption/FixedLength.pm
+++ b/Net/DHCP6/AbstractOption/FixedLength.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Net::DHCP6::Option;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::Option/;
 
 sub new {

--- a/Net/DHCP6/AbstractOption/Ipv6AddrList.pm
+++ b/Net/DHCP6/AbstractOption/Ipv6AddrList.pm
@@ -5,7 +5,7 @@ use warnings;
 use Net::DHCP6::AbstractOption::Vector;
 use Net::DHCP6::Value::Ipv6Addr;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::Vector/;
 
 use constant len_elem => 16;

--- a/Net/DHCP6/AbstractOption/List.pm
+++ b/Net/DHCP6/AbstractOption/List.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Net::DHCP6::Option;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::Option/;
 
 sub new {

--- a/Net/DHCP6/AbstractOption/Vector.pm
+++ b/Net/DHCP6/AbstractOption/Vector.pm
@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Net::DHCP6::AbstractOption::List;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::List/;
 
 # must overridden

--- a/Net/DHCP6/Exchange.pm
+++ b/Net/DHCP6/Exchange.pm
@@ -19,7 +19,7 @@ use IO::Select;
 
 our @ISA = qw/Exporter/;
 our @EXPORT_OK = qw/NEXT LAST/;
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our $bufsize = 2 ** 16;
 
 sub get_default_local_address {

--- a/Net/DHCP6/Exchange/InfoReq.pm
+++ b/Net/DHCP6/Exchange/InfoReq.pm
@@ -18,7 +18,7 @@ use Net::DHCP6::Parameters qw(
 use Net::DHCP6::Message;
 use Net::DHCP6::Option qw/ElapsedTime OptionRequest ClientId/;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::Exchange/;
 
 use constant irt => 1;

--- a/Net/DHCP6/Message.pm
+++ b/Net/DHCP6/Message.pm
@@ -7,7 +7,7 @@ use warnings;
 use Net::DHCP6::Option;
 use Net::DHCP6::OptionList;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::OptionList/;
 
 # TODO: should be crypto-safe RNG?

--- a/Net/DHCP6/Option.pm
+++ b/Net/DHCP6/Option.pm
@@ -4,7 +4,7 @@ package Net::DHCP6::Option;
 use strict;
 use warnings;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our %OptionPkgs;
 
 # should overridden

--- a/Net/DHCP6/Option/ClientId.pm
+++ b/Net/DHCP6/Option/ClientId.pm
@@ -6,7 +6,7 @@ use warnings;
 use Net::DHCP6::AbstractOption::DUID;
 use Net::DHCP6::Parameters qw/DHCP6_OPT_CLIENTID/;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::DUID/;
 
 use constant code   => DHCP6_OPT_CLIENTID;

--- a/Net/DHCP6/Option/DnsServer.pm
+++ b/Net/DHCP6/Option/DnsServer.pm
@@ -6,7 +6,7 @@ use warnings;
 use Net::DHCP6::AbstractOption::Ipv6AddrList;
 use Net::DHCP6::Parameters qw/DHCP6_OPT_DNS_SERVERS/;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::Ipv6AddrList/;
 
 use constant code   => DHCP6_OPT_DNS_SERVERS;

--- a/Net/DHCP6/Option/ElapsedTime.pm
+++ b/Net/DHCP6/Option/ElapsedTime.pm
@@ -6,7 +6,7 @@ use warnings;
 use Net::DHCP6::AbstractOption::FixedLength;
 use Net::DHCP6::Parameters qw/DHCP6_OPT_ELAPSED_TIME/;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::FixedLength/;
 
 use constant code   => DHCP6_OPT_ELAPSED_TIME;

--- a/Net/DHCP6/Option/OptionRequest.pm
+++ b/Net/DHCP6/Option/OptionRequest.pm
@@ -6,7 +6,7 @@ use warnings;
 use Net::DHCP6::AbstractOption::Vector;
 use Net::DHCP6::Parameters qw/DHCP6_OPT_ORO/;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::Vector/;
 
 use constant code   => DHCP6_OPT_ORO;

--- a/Net/DHCP6/Option/ServerId.pm
+++ b/Net/DHCP6/Option/ServerId.pm
@@ -6,7 +6,7 @@ use warnings;
 use Net::DHCP6::AbstractOption::DUID;
 use Net::DHCP6::Parameters qw/DHCP6_OPT_SERVERID/;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 our @ISA = qw/Net::DHCP6::AbstractOption::DUID/;
 
 use constant code   => DHCP6_OPT_SERVERID;

--- a/Net/DHCP6/OptionList.pm
+++ b/Net/DHCP6/OptionList.pm
@@ -3,7 +3,7 @@ package Net::DHCP6::OptionList;
 use strict;
 use warnings;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 
 sub option {
     my $self = shift;

--- a/Net/DHCP6/Parameters.pm
+++ b/Net/DHCP6/Parameters.pm
@@ -4,7 +4,7 @@ package Net::DHCP6::Parameters;
 use strict;
 use warnings;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 
 use Exporter;
 our @ISA = ("Exporter");

--- a/Net/DHCP6/Value/Ipv6Addr.pm
+++ b/Net/DHCP6/Value/Ipv6Addr.pm
@@ -3,7 +3,7 @@ package Net::DHCP6::Value::Ipv6Addr;
 use strict;
 use warnings;
 
-our $VERSION = "0.0.1";
+our $VERSION = "0.001";
 
 sub new {
     my $class = shift;