From 0e74b120552a93c7c85a73d65fccfd93c4705e5a Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 28 Mar 2015 14:44:05 +0200 Subject: [PATCH] Support more than 50 hashes in strike_query --- lib/WebService/Strike.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/WebService/Strike.pm b/lib/WebService/Strike.pm index 396ec48..426a113 100644 --- a/lib/WebService/Strike.pm +++ b/lib/WebService/Strike.pm @@ -30,6 +30,9 @@ sub _query { sub strike_query { my (@hashes) = @_; + if (@hashes > 50) { + return strike_query (@hashes[0 .. 49]), strike_query (@hashes[50 .. $#hashes]); + } my $url = "$BASE_URL/info/?hashes=" . join ',', map { uc } @hashes; my $sorter = sbe(\@hashes, {xform => sub { $_[0]->hash }}); -- 2.39.2