Commit: 6c889b9b06abd249a633b3924dc5fb65b5e932a8 - libnet-dhcp6-perl (git)

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

Commit MetaInfo

• Revision: 6c889b9b06abd249a633b3924dc5fb65b5e932a8 (tree)
• Time: 2021-08-15 22:16:06
• Author: dyknon <dyknon@user...>
• Commiter: dyknon

Log Message

fix AbstractOption::Time

Change Summary

• modified: Net/DHCP6/AbstractOption/Time.pm

Incremental Difference

--- a/Net/DHCP6/AbstractOption/Time.pm
+++ b/Net/DHCP6/AbstractOption/Time.pm
@@ -13,8 +13,8 @@ sub range { (undef, undef) }
 
 sub data {
     my $self = shift;
-    return "\xff\xff\xff\xff" if($self->value == "inf");
-    pack("L>", $self->value);
+    return "\xff\xff\xff\xff" if($self->time == "inf");
+    pack("L>", $self->time);
 }
 
 sub parse_data {
@@ -37,9 +37,9 @@ sub verify {
     my $self = shift;
     my $who = shift;
     my ($from, $to) = $self->range;
-    return 0 if(defined $from && $from > $self->value);
-    return 0 if(defined $to && $to <= $self->value);
-    return 0 if($self->value != "inf" && $self->value >= 0xffffffff);
+    return 0 if(defined $from && $from > $self->time);
+    return 0 if(defined $to && $to <= $self->time);
+    return 0 if($self->time != "inf" && $self->time >= 0xffffffff);
     1;
 }