| Subject: | bug in typesbyval |
Net::DNS 0.48
on code inspection, this seems fixed in 0.52 but I think the following is simpler
in sub typesbyval() defined in DNS.pm
replace
die "Net::DNS::typesbyval() argument ($val) is not numeric" unless
$val =~ m/^\s*\d+\s*$/;
$val =~ s/\s*//g;
$val =~ s/^0*([0-9]+)/$1/; #remove leading zeros
by
die "Net::DNS::typesbyval() argument ($val) is not numeric" unless
$val =~ m/^\s*0*(\d+)\s*$/;
$val = $1;
cheers,
Danny Thomas
PS the run-time message in 0.48 was
Argument "" isn't numeric in numeric gt (>) at /opt/perl/perl-5.8.5/lib/site_perl/5.8.5/i386-freebsd/Net/DNS.pm line 167.