Fixes zonemaster#742

vlevigneron · Jul 23, 2020 · ab30fb3 · ab30fb3
1 parent 7ce4ff3
commit ab30fb3
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/lib/Zonemaster/Engine/Test/Consistency.pm b/lib/Zonemaster/Engine/Test/Consistency.pm
@@ -1,20 +1,22 @@
 package Zonemaster::Engine::Test::Consistency;
 
-use version; our $VERSION = version->declare("v1.1.12");
+use 5.014002;
 
 use strict;
 use warnings;
 
-use 5.014002;
+use version; our $VERSION = version->declare("v1.1.13");
 
 use Zonemaster::Engine;
 
 use List::MoreUtils qw[uniq];
 use Locale::TextDomain qw[Zonemaster-Engine];
 use Readonly;
+use Zonemaster::Engine::Profile;
 use Zonemaster::Engine::Constants qw[:ip :soa];
 use Zonemaster::Engine::Test::Address;
 use Zonemaster::Engine::Util;
+use Zonemaster::Engine::TestMethods;
 
 ###
 ### Entry points
@@ -680,7 +682,7 @@ sub _get_addr_rrs {
         );
     }
     elsif ($p->is_redirect) {
-        my $p = $ns->query( $name, $qtype, { recurse => 1 } );
+        my $p = Zonemaster::Engine->recurse( $name, $qtype, q{IN} );
         if ( $p ) {
             return ( undef, $p->get_records_for_name( $qtype, $name, 'answer' ) );
         } else {

diff --git a/lib/Zonemaster/Engine/Util.pm b/lib/Zonemaster/Engine/Util.pm
@@ -5,7 +5,7 @@ use 5.014002;
 use strict;
 use warnings;
 
-use version; our $VERSION = version->declare("v1.1.12");
+use version; our $VERSION = version->declare("v1.1.13");
 
 use parent 'Exporter';
 
@@ -17,7 +17,7 @@ use Pod::Simple::SimpleTree;
 
 ## no critic (Modules::ProhibitAutomaticExportation)
 our @EXPORT      = qw[ ns info name pod_extract_for scramble_case ];
-our @EXPORT_OK   = qw[ ns info name pod_extract_for test_levels should_run_test scramble_case ];
+our @EXPORT_OK   = qw[ ns info name pod_extract_for test_levels should_run_test scramble_case ipversion_ok ];
 our %EXPORT_TAGS = ( all => \@EXPORT_OK );
 
 ## no critic (Subroutines::RequireArgUnpacking)