no need to apply replacements to some components

freyfogle · freyfogle · commit 755b3b10efc4 · 2025-05-11T22:53:47.000+02:00
diff --git a/lib/Geo/Address/Formatter.pm b/lib/Geo/Address/Formatter.pm
@@ -792,6 +792,9 @@ sub _apply_replacements {
     }
 
     foreach my $component (keys %$rh_components) {
+        # some components dont need replacements
+        next if ($component eq 'country_code');
+        next if ($component eq 'house_number');
         foreach my $ra_fromto (@$raa_rules) {
             my $regexp;
             # do key specific replacement

Original file line number	Diff line number	Diff line change
`@@ -792,6 +792,9 @@ sub _apply_replacements {`
`792`	`792`	`}`
`793`	`793`
`794`	`794`	`foreach my $component (keys %$rh_components) {`
	`795`	`+ # some components dont need replacements`
	`796`	`+ next if ($component eq 'country_code');`
	`797`	`+ next if ($component eq 'house_number');`
`795`	`798`	`foreach my $ra_fromto (@$raa_rules) {`
`796`	`799`	`my $regexp;`
`797`	`800`	`# do key specific replacement`