# processes such as git-apply(1).
package PublicInbox::Qspawn;
-use strict;
-use v5.10.1;
+use v5.12;
use PublicInbox::Spawn qw(popen_rd);
use PublicInbox::GzipFilter;
+use Scalar::Util qw(blessed);
# n.b.: we get EAGAIN with public-inbox-httpd, and EINTR on other PSGI servers
use Errno qw(EAGAIN EINTR);
my $r = rd_hdr($self) or return;
my $env = $self->{psgi_env};
my $filter;
- if (ref($r) eq 'ARRAY' && Scalar::Util::blessed($r->[2]) &&
- $r->[2]->can('attach')) {
+
+ # this is for RepoAtom since that can fire after parse_cgi_headers
+ if (ref($r) eq 'ARRAY' && blessed($r->[2]) && $r->[2]->can('attach')) {
$filter = pop @$r;
}
$filter //= delete($env->{'qspawn.filter'}) // (ref($r) eq 'ARRAY' ?
}
package PublicInbox::Qspawn::Limiter;
-use strict;
-use warnings;
+use v5.12;
sub new {
my ($class, $max) = @_;