Commit: 45705689bf193f7aad5d75ca286795547b7831c9 - libnet-dhcp6-perl (git)

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

Commit MetaInfo

• Revisão: 45705689bf193f7aad5d75ca286795547b7831c9 (tree)
• Hora: 2021-08-12 22:07:49
• Autor: dyknon <dyknon@user...>
• Commiter: dyknon

Mensagem de Log

fix domain name stringify-er

Mudança Sumário

• modified: Net/DHCP6/Value/DomainName.pm

Diff

--- a/Net/DHCP6/Value/DomainName.pm
+++ b/Net/DHCP6/Value/DomainName.pm
@@ -81,7 +81,7 @@ sub labels {
 sub str {
     my $self = shift;
     my @label = $self->labels;
-    @label = map{s/([^0-9A-Za-z-])/"\x".sprintf("%02x", ord($_))/ge} @label;
+    @label = map{s/([^0-9A-Za-z-])/"\x".sprintf("%02x", ord($1))/ger} @label;
     join(".", @label);
 }