Adapted to latest Net::DNS::SEC
authorheiko
Thu, 02 Apr 2015 13:26:45 +0200
changeset 1 48ba621bc598
parent 0 43730d291dd5
child 2 52d1ff194af0
Adapted to latest Net::DNS::SEC
Build.PL
lib/DNSSec.pm
--- 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;
 }