Subject: | uninitialized value in Question.pm |
Use of uninitialized value in pack at /opt/perl5.6.1/lib/site_perl/5.6.1/Net/DNS/Question.pm line 160.
It doesn't check to make sure the record type of valid. In this case I'm trying to pass it an MV record type, instead of MX.
my $res = new Net::DNS::Resolver;
my $query = $res->query("foo.bar.com", 'MV');
The error is getting throw in Question.pm, but perhaps it could be trapped earlier, say in Resolver.pm at around line 594.
You could validate the requested type in $Net::DNS::typesbyname{uc($self->{"qtype"}) and do the same thing for the class to prevent bogus classes...