Merge pull request metacpan#2248 from metacpan/cees/fix-identity-disconnect

oalders · web-flow · commit 33646655e8d1 · 2019-12-07T14:19:09.000-05:00
Make sure DELETE calls to the API include query params
diff --git a/lib/MetaCPAN/Web/Model/API.pm b/lib/MetaCPAN/Web/Model/API.pm
@@ -96,7 +96,7 @@ sub request {
 
     my $current_url = $self->request_uri;
     my $request_id  = $self->request_id;
-    if ( $method eq 'GET' || $search ) {
+    if ( $method =~ /^(GET|DELETE)$/ || $search ) {
         for my $param ( keys %{ $params || {} } ) {
             $url->query_param( $param => $params->{$param} );
         }

Original file line number	Diff line number	Diff line change
`@@ -96,7 +96,7 @@ sub request {`
`96`	`96`
`97`	`97`	`my $current_url = $self->request_uri;`
`98`	`98`	`my $request_id = $self->request_id;`
`99`		`- if ( $method eq 'GET' \|\| $search ) {`
	`99`	`+ if ( $method =~ /^(GET\|DELETE)$/ \|\| $search ) {`
`100`	`100`	`for my $param ( keys %{ $params \|\| {} } ) {`
`101`	`101`	`$url->query_param( $param => $params->{$param} );`
`102`	`102`	`}`