From f2c516e3b77972b872deec3196b6b15330413c77 Mon Sep 17 00:00:00 2001
From: brian d foy <briandfoy@pobox.com>
Date: Wed, 22 Mar 2023 13:49:47 -0400
Subject: [PATCH] Need a number for the month

---
 examples/make_default_data.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/examples/make_default_data.pl b/examples/make_default_data.pl
index 8d3d972..36b0c65 100755
--- a/examples/make_default_data.pl
+++ b/examples/make_default_data.pl
@@ -91,8 +91,12 @@ =head1 COPYRIGHT AND LICENSE
 	(?<mon>  [a-z]+ ) \s
 	(?<year> \d+    )
 	/ix;
+my %months = map  { state $n = 1; $_ => $n++ }
+	qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my( $year, $day ) = @+{qw(year day)};
+my( $month ) = $months{ $+{mon} };
 
-my $new_version_date = sprintf '%4d%02d%02d', @+{qw(year mon day)};
+my $new_version_date = sprintf '%4d%02d%02d', $year, $month, $day;
 my $current_date = Business::ISBN::Data->VERSION;
 my( $major, $minor ) = split /\./, $current_date;