make replacement regex case insensitive

freyfogle · freyfogle · commit 9d4617a92260 · 2025-09-24T10:42:13.000+02:00
diff --git a/lib/Geo/Address/Formatter.pm b/lib/Geo/Address/Formatter.pm
@@ -813,7 +813,7 @@ sub _apply_replacements {
             }
             if (defined($regexp)){
                 try {
-                    my $re = qr/$regexp/;
+                    my $re = qr/$regexp/i;
                     $rh_components->{$component} =~ s/$re/$ra_fromto->[1]/;
                 } catch {
                     warn "invalid replacement: " . join(', ', @$ra_fromto);

Original file line number	Diff line number	Diff line change
`@@ -813,7 +813,7 @@ sub _apply_replacements {`
`813`	`813`	`}`
`814`	`814`	`if (defined($regexp)){`
`815`	`815`	`try {`
`816`		`- my $re = qr/$regexp/;`
	`816`	`+ my $re = qr/$regexp/i;`
`817`	`817`	`$rh_components->{$component} =~ s/$re/$ra_fromto->[1]/;`
`818`	`818`	`} catch {`
`819`	`819`	`warn "invalid replacement: " . join(', ', @$ra_fromto);`