correctly decode JSON arrays also in do_high

diff --git a/lib/APKPM/Gearman/Client.pm b/lib/APKPM/Gearman/Client.pm
index 932bd5a..83078a7 100644 (file)
--- a/lib/APKPM/Gearman/Client.pm
+++ b/lib/APKPM/Gearman/Client.pm
@@ -44,7 +44,7 @@ sub do_high {
 
        my $ret = $self->gc->do_task( $task );
        warn "## $func $args = ",dump($ret);
-       return $$ret =~ m/^{/ ? JSON::XS::decode_json($$ret) : $$ret;
+       return $$ret =~ m/^[{\[]/ ? JSON::XS::decode_json($$ret) : $$ret;
 }
 
 1;