Commit 4d72c3e8 authored by Kiyoshi Aman's avatar Kiyoshi Aman
Browse files

Chessa::Bug::Adelie: fix pagination BS

parent 2621aacf
......@@ -75,12 +75,13 @@ sub projects {
}
my $link = $response->header('Link');
my @links = split /, /, $link;
$link = $links[0];
if ($link =~ /"next"$/) {
$link =~ /<.*?>/;
$link = $1;
load_projects($self, $http, $link);
for my $i (@links) {
if ($i =~ /"next"$/) {
$i =~ /<(.*?)>/;
$link = $1;
load_projects($self, $http, $link);
last;
}
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment