Subject: | RFC 3597 (hex) parsing mistake |
Looks like a mistake in the current trunk/r1223 (0.77+):
$ perl -MNet::DNS::RR -lwe 'Net::DNS::RR->new("e.example. IN A \\#")->print'
Argument "\\#" isn't numeric in pack at ../5.20/mach/Net/DNS/RR/A.pm line 62.
e.example. 0 IN A 0.0.0.0
The fix:
--- lib/Net/DNS/RR.pm (revision 1223)
+++ lib/Net/DNS/RR.pm (working copy)
@@ -141 +141 @@
- if ( $#token && $token[0] =~ /^[\\]?#$/ ) {
+ if ( @token && $token[0] =~ /^[\\]?#$/ ) {
Gives:
$ perl -MNet::DNS::RR -lwe 'Net::DNS::RR->new("e.example. IN A \\#")->print'
e.example. 0 IN A ; no data