diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-03-23 11:44:39 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2016-03-23 11:44:39 +0000 |
| commit | f1b3e509455163b0f3362e460d201d04593a8388 (patch) | |
| tree | ed5833d16c4142a45fb20ff8b8227aeafefbea78 /t/open311/endpoint/Endpoint1.pm | |
| parent | 4210219bed15cbd76c9e351db160f1d0188f78f8 (diff) | |
| parent | b33eb7d3bd02ece9ff70a215290a233f6e480378 (diff) | |
Merge branch 'perl5.22-snapshot-update'
Diffstat (limited to 't/open311/endpoint/Endpoint1.pm')
| -rw-r--r-- | t/open311/endpoint/Endpoint1.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/open311/endpoint/Endpoint1.pm b/t/open311/endpoint/Endpoint1.pm index c4119075c..ae12172b8 100644 --- a/t/open311/endpoint/Endpoint1.pm +++ b/t/open311/endpoint/Endpoint1.pm @@ -103,8 +103,7 @@ sub get_service_requests { my ($self, $args) = @_; my $service_code = $args->{service_code} or return $self->get_requests; - # we use ~~ as the service_code arg will be an arrayref like ['POT'] - return $self->filter_requests( sub { shift->service->service_code ~~ $service_code }); + return $self->filter_requests( sub { my $c = shift->service->service_code; grep { $_ eq $c } @$service_code }); } sub get_service_request { |