error out if the lookup fails

fastmail · May 22, 2024 · 4f647f2 · 4f647f2
1 parent 3febfbe
commit 4f647f2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Mail/SPF/Server.pm b/lib/Mail/SPF/Server.pm
@@ -570,7 +570,10 @@ sub dns_lookup {
 
     $domain =~ s/^(.*?)\.?$/\L$1/;  # Normalize domain.
 
-    my $packet = $self->dns_resolver->send($domain, $rr_type);
+    my $packet = eval { $self->dns_resolver->send($domain, $rr_type); };
+    if($@) {
+      throw Mail::SPF::ENoAcceptableRecord($@);
+    }
 
     # Throw DNS exception unless an answer packet with RCODE 0 or 3 (NXDOMAIN)
     # was received (thereby treating NXDOMAIN as an acceptable but empty answer packet):