From 51059778a4ee8c174bd1b336ce3c3d5b4112fb4f Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Fri, 28 Feb 2025 20:13:27 +0100
Subject: [PATCH] recursive_whois: allow case insensitive match of OrgID

It seems that at least whois.arin.net does not use anymore OrgID but
OrgId, like this:

    OrgId:          RIPE

So make the match in recursive_whois case insensitive.
---
 lib/Net/Whois/Raw.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/Whois/Raw.pm b/lib/Net/Whois/Raw.pm
index 8939d6e..bef86bd 100644
--- a/lib/Net/Whois/Raw.pm
+++ b/lib/Net/Whois/Raw.pm
@@ -191,7 +191,7 @@ sub recursive_whois {
         elsif ( /Contact information can be found in the (\S+)\s+database/ ) {
             $newsrv = $Net::Whois::Raw::Data::ip_whois_servers{ $1 };
         }
-        elsif ( ( /OrgID:\s+(\w+)/ || /descr:\s+(\w+)/ ) && Net::Whois::Raw::Common::is_ipaddr( $dom ) ) {
+        elsif ( ( /OrgID:\s+(\w+)/i || /descr:\s+(\w+)/ ) && Net::Whois::Raw::Common::is_ipaddr( $dom ) ) {
             my $val = $1;
             if ( $val =~ /^(?:RIPE|APNIC|KRNIC|LACNIC)$/ ) {
                 $newsrv = $Net::Whois::Raw::Data::ip_whois_servers{ $val };