www: do not call ->coderepo->srv on sub ref

The PublicInbox::Cgit wrapper will return a sub-ref for most
responses, so ensure we don't try to treat it as an array-ref.

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index d0e20fb54da4a82768d899c53fb693415b759a67..470510ae1175945588a11d003ebf32f65979ac7f 100644 (file)
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -197,8 +197,9 @@ sub news_cgit_fallback ($) {
        my $www = $ctx->{www};
        my $env = $ctx->{env};
        my $res = $www->news_www->call($env);
-       $res = $www->cgit->call($env) if $res->[0] == 404;
-       $res = $www->coderepo->srv($ctx) if $res->[0] == 404;
+       $res = $www->cgit->call($env, $ctx) if $res->[0] == 404;
+       ref($res) eq 'ARRAY' && $res->[0] == 404 and
+               $res = $www->coderepo->srv($ctx);
        $res;
 }