Bug#759329: libnet-dns-perl: lintian fails with "Too late to run INIT block"

[Axel Beckert]

Control: forwarded -1 https://rt.cpan.org/Public/Bug/Display.html?id=96119

Axel Beckert wrote:
> I can reproduce it outside lintian with just
> 
> $ perl -w -e 'require Net::DNS'
> Too late to run INIT block at /usr/lib/x86_64-linux-gnu/perl5/5.20/Net/DNS.pm line 209.

https://rt.cpan.org/Public/Bug/Display.html?id=96119 has some
background as Damyan pointed out. Actually there is also comment from
today, that the issue is back with 0.79 and Perl 5.20.


The relevant code part is:

########################################
#       Net::DNS::SEC 0.17 compatibility
########################################

use constant OLDDNSSEC => Net::DNS::RR->COMPATIBLE;

if (OLDDNSSEC) {
        require Net::DNS::RR::RRSIG;    ## pre-load RRs
        foreach my $type (qw(SIG DS DLV DNSKEY KEY NXT NSEC)) {
                new Net::DNS::RR( type => $type );
        }

        eval {
                #no warnings 'void';    ## DIY patch to suppress "Too late to run INIT block ..."

                sub INIT {              ## only needed to satisfy DNSSEC t/00-load.t
                        return unless OLDDNSSEC;

                        # attempt to pre-load RRs which have circular dependence problems
                        foreach my $type (qw(NSEC3 NSEC3PARAM)) {
                                new Net::DNS::RR( type => $type );
                        }
                }
        };
}


The Changes file says about this:

**** 0.77 Jun 13, 2014

[...]

Fix rt.cpan.org #96119

        "Too late to run INIT block" warning for require Net::DNS
 
[...]

Fix inefficient Net::DNS::SEC compatibility code


(Not sure if the last line is related.)

		Regards, Axel
-- 
 ,''`.  |  Axel Beckert <abe at debian.org>, http://people.debian.org/~abe/
: :' :  |  Debian Developer, ftp.ch.debian.org Admin
`. `'   |  1024D: F067 EA27 26B9 C3FC 1486  202E C09E 1D89 9593 0EDE
  `-    |  4096R: 2517 B724 C5F6 CA99 5329  6E61 2FF9 CD59 6126 16B5