From a2e6dee365c127802f588aaca8b273d97b89fc16 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Wed, 26 Apr 2023 16:30:59 -0400
Subject: [PATCH] Update for 20230426

---
 lib/Business/ISBN/Data.pm          |  8 ++++----
 lib/Business/ISBN/RangeMessage.xml | 14 +++++++-------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/lib/Business/ISBN/Data.pm b/lib/Business/ISBN/Data.pm
index 74d5ed6..aab27cb 100644
--- a/lib/Business/ISBN/Data.pm
+++ b/lib/Business/ISBN/Data.pm
@@ -7,7 +7,7 @@ use Carp                  qw(carp);
 use File::Basename        qw(dirname);
 use File::Spec::Functions qw(catfile);
 
-our $VERSION = '20230410.001';
+our $VERSION = '20230426.001';
 
 =encoding utf8
 
@@ -115,8 +115,8 @@ You may redistribute this under the terms of the Artistic License 2.0.
 sub _default_data {
 # BEGIN REPLACE
 	(
-	_data_date => 'Mon, 10 Apr 2023 07:05:01 BST',
-	_serial    => 'd38eb948-8a61-451e-8814-af2cf544bc00',
+	_data_date => 'Wed, 26 Apr 2023 21:27:21 BST',
+	_serial    => '0fd89bf2-4e19-4303-b314-28fc66f8071b',
 	_source    => __FILE__,
 	978 => {
 		0     => [ 'English language'             => [ '00', '19', '200', '227', '2280', '2289', '229', '368', '3690', '3699', '370', '638', '6390', '6397', '6398000', '6399999', '640', '644', '6450000', '6459999', '646', '647', '6480000', '6489999', '649', '654', '6550', '6559', '656', '699', '7000', '8499', '85000', '89999', '900000', '949999', '9500000', '9999999' ] ],
@@ -163,7 +163,7 @@ sub _default_data {
 		619   => [ 'Bulgaria'                     => [ '00', '14', '150', '699', '7000', '8999', '90000', '99999' ] ],
 		620   => [ 'Mauritius'                    => [ '0', '9' ] ],
 		621   => [ 'Philippines'                  => [ '00', '29', '400', '599', '8000', '8999', '95000', '99999' ] ],
-		622   => [ 'Iran'                         => [ '00', '10', '200', '374', '5200', '7999', '92500', '99999' ] ],
+		622   => [ 'Iran'                         => [ '00', '10', '200', '424', '5200', '8499', '90000', '99999' ] ],
 		623   => [ 'Indonesia'                    => [ '00', '09', '130', '499', '5250', '8799', '88000', '99999' ] ],
 		624   => [ 'Sri Lanka'                    => [ '00', '04', '200', '249', '5000', '6449', '94500', '99999' ] ],
 		625   => [ 'Turkey'                       => [ '00', '00', '365', '442', '44300', '44499', '445', '449', '6350', '7793', '77940', '77949', '7795', '8499', '99000', '99999' ] ],
diff --git a/lib/Business/ISBN/RangeMessage.xml b/lib/Business/ISBN/RangeMessage.xml
index 167238a..0e69624 100644
--- a/lib/Business/ISBN/RangeMessage.xml
+++ b/lib/Business/ISBN/RangeMessage.xml
@@ -17,8 +17,8 @@
 ]>
 <ISBNRangeMessage>
   <MessageSource>International ISBN Agency</MessageSource>
-  <MessageSerialNumber>d38eb948-8a61-451e-8814-af2cf544bc00</MessageSerialNumber>
-  <MessageDate>Mon, 10 Apr 2023 07:05:01 BST</MessageDate>
+  <MessageSerialNumber>0fd89bf2-4e19-4303-b314-28fc66f8071b</MessageSerialNumber>
+  <MessageDate>Wed, 26 Apr 2023 21:27:21 BST</MessageDate>
   <EAN.UCCPrefixes>
     <EAN.UCC>
       <Prefix>978</Prefix>
@@ -1221,23 +1221,23 @@
           <Length>0</Length>
         </Rule>
         <Rule>
-          <Range>2000000-3749999</Range>
+          <Range>2000000-4249999</Range>
           <Length>3</Length>
         </Rule>
         <Rule>
-          <Range>3750000-5199999</Range>
+          <Range>4250000-5199999</Range>
           <Length>0</Length>
         </Rule>
         <Rule>
-          <Range>5200000-7999999</Range>
+          <Range>5200000-8499999</Range>
           <Length>4</Length>
         </Rule>
         <Rule>
-          <Range>8000000-9249999</Range>
+          <Range>8500000-8999999</Range>
           <Length>0</Length>
         </Rule>
         <Rule>
-          <Range>9250000-9999999</Range>
+          <Range>9000000-9999999</Range>
           <Length>5</Length>
         </Rule>
       </Rules>