fixup! [Bristol][Alloy] Quote grep to match category brackets

MorayMySoc · MorayMySoc · commit 47243b771247 · 2025-02-24T10:49:01.000Z
diff --git a/perllib/Open311/Endpoint/Integration/UK/Bristol/Alloy.pm b/perllib/Open311/Endpoint/Integration/UK/Bristol/Alloy.pm
@@ -33,7 +33,7 @@ sub process_attributes {
 
     my $attributes_values = $self->config->{'request_attribute_to_values'};
     my $code = $args->{service_code_alloy};
-    if (grep { $code =~ /\Q$_\E/ } keys %{
+    if (grep { $code eq $_ } keys %{
             {
                 %{$self->config->{service_whitelist}->{'SC-Street Cleansing'} || {} },
                 %{$self->config->{service_whitelist}->{'Abandoned bikes/scooters'} || {} }

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ sub process_attributes {`
`33`	`33`
`34`	`34`	`my $attributes_values = $self->config->{'request_attribute_to_values'};`
`35`	`35`	`my $code = $args->{service_code_alloy};`
`36`		`- if (grep { $code =~ /\Q$_\E/ } keys %{`
	`36`	`+ if (grep { $code eq $_ } keys %{`
`37`	`37`	`{`
`38`	`38`	`%{$self->config->{service_whitelist}->{'SC-Street Cleansing'} \|\| {} },`
`39`	`39`	`%{$self->config->{service_whitelist}->{'Abandoned bikes/scooters'} \|\| {} }`