# HG changeset patch # User heiko # Date 1427974005 -7200 # Node ID 48ba621bc598ebbf00526c4eec2d3a769f73e3be # Parent 43730d291dd5a309b9bba612b69f02c6402acfcd Adapted to latest Net::DNS::SEC diff -r 43730d291dd5 -r 48ba621bc598 Build.PL --- a/Build.PL Thu Apr 02 13:09:38 2015 +0200 +++ b/Build.PL Thu Apr 02 13:26:45 2015 +0200 @@ -8,11 +8,11 @@ dist_abstract => 'tool to get dnssec information', version_from => 'lib/DNSSec.pm', module_name => 'DNSSec', - require => { + requires => { 'Net::DNS' => 0, - 'Net::DNS::Sec' => 0, + 'Net::DNS::SEC' => 0, }, - test_require => { + test_requires => { 'Test::Exception' => 0, }, )->create_build_script; diff -r 43730d291dd5 -r 48ba621bc598 lib/DNSSec.pm --- a/lib/DNSSec.pm Thu Apr 02 13:09:38 2015 +0200 +++ b/lib/DNSSec.pm Thu Apr 02 13:26:45 2015 +0200 @@ -2,7 +2,7 @@ use v5.14; use strict; use warnings; -use Net::DNS::Keyset; +use Net::DNS::SEC::Keyset; use base 'Exporter'; our @EXPORT_OK = qw(keyset ksk keyinfo); @@ -15,8 +15,8 @@ my $keys = $resolver->query($domain => (DNSKEY => 'IN')) or die $resolver->errorstring; - my $ks = Net::DNS::Keyset->new($keys) - or die $Net::DNS::Keyset::keyset_err; + my $ks = Net::DNS::SEC::Keyset->new($keys) + or die $Net::DNS::SEC::Keyset::keyset_err; return $ks; }