恥ずかしい勘違いから生まれた、DHCP6の不要かつ部分的な実装
| Revisión | 45705689bf193f7aad5d75ca286795547b7831c9 (tree) |
|---|---|
| Tiempo | 2021-08-12 22:07:49 |
| Autor |  dyknon <dyknon@user...> |
| Commiter | dyknon |
fix domain name stringify-er
Net/DHCP6/Value/DomainName.pm (diff)| @@ -81,7 +81,7 @@ sub labels { | ||
| 81 | 81 | sub str { |
| 82 | 82 | my $self = shift; |
| 83 | 83 | my @label = $self->labels; |
| 84 | - @label = map{s/([^0-9A-Za-z-])/"\x".sprintf("%02x", ord($_))/ge} @label; | |
| 84 | + @label = map{s/([^0-9A-Za-z-])/"\x".sprintf("%02x", ord($1))/ger} @label; | |
| 85 | 85 | join(".", @label); |
| 86 | 86 | } |
| 87 | 87 |
Fork