--- 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;
--- 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;
}