do not try to parse an ip4 address as an ipv6 address

fix fastmail#22
bigio · Sep 27, 2024 · cd48886 · cd48886
1 parent e194e7f
commit cd48886
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Mail/SPF/Util.pm b/lib/Mail/SPF/Util.pm
@@ -188,7 +188,9 @@ sub ip_address_reverse {
         or throw Mail::SPF::EInvalidOptionValue('NetAddr::IP IPv4 or IPv6 address expected');
     try {
         # Treat IPv4-mapped IPv6 addresses as IPv4 addresses:
-        $ip_address = $self->ipv6_address_to_ipv4($ip_address);
+        if($ip_address->version == 6) {
+	    $ip_address = $self->ipv6_address_to_ipv4($ip_address);
+        }
     }
     catch Mail::SPF::EInvalidOptionValue with {};
         # ...deliberately ignoring conversion errors.