Need a number for the month

briandfoy · Mar 22, 2023 · f2c516e · f2c516e
1 parent bfb6e2c
commit f2c516e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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;