Month has a capital letter, so we need /i

briandfoy · Mar 22, 2023 · bfb6e2c · bfb6e2c
1 parent 3393ddc
commit bfb6e2c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/examples/make_default_data.pl b/examples/make_default_data.pl
@@ -81,6 +81,7 @@ =head1 COPYRIGHT AND LICENSE
 #
 #
 # Thu, 16 Mar 2023 20:59:31 GMT
+say "DATE: $data->{_date}";
 my( $day, $mon, $year ) = $data->{_date} =~ m/
 	# Thu, 16 Mar 2023 20:59:31 GMT
 	\A
@@ -89,7 +90,7 @@ =head1 COPYRIGHT AND LICENSE
 	(?<day>  \d+    ) \s
 	(?<mon>  [a-z]+ ) \s
 	(?<year> \d+    )
-	/x;
+	/ix;
 
 my $new_version_date = sprintf '%4d%02d%02d', @+{qw(year mon day)};
 my $current_date = Business::ISBN::Data->VERSION;