Skip to content

Commit 8680baa

Browse files
committed
Make sure DELETE calls to the API include query params
Fixes metacpan#2027 Can't disconnect any identities
1 parent a75f9ec commit 8680baa

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

lib/MetaCPAN/Web/Model/API.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -96,7 +96,7 @@ sub request {
9696

9797
my $current_url = $self->request_uri;
9898
my $request_id = $self->request_id;
99-
if ( $method eq 'GET' || $search ) {
99+
if ( $method =~ /^(GET|DELETE)$/ || $search ) {
100100
for my $param ( keys %{ $params || {} } ) {
101101
$url->query_param( $param => $params->{$param} );
102102
}

0 commit comments

Comments
 (0)