commit - f363c7f19c5c1aee482e2c3ef9fa75a56bebbd2e
commit + 4b652004e7b2173b05e8d4fbe97143810c3c250a
blob - ed3b1f41c1f9afd57e3a1c0dea51559d58f99977
blob + 5c7cbf390e7d1c58fbaf2f567a17268e42982935
--- regress/cmdline/http-server
+++ regress/cmdline/http-server
}
my $resp = HTTP::Response->new($status_code, $status, $headers,
- sub {
- my $r = read($gitout, my $buf, 1024);
- if (not defined($r) or $r == 0) {
- warn "read error: $!" unless defined $r;
- return undef;
- }
- return $buf;
- });
+ sub {
+ my $r = read($gitout, my $buf, 1024);
+ if (not defined($r) or $r == 0) {
+ warn "read error: $!" unless defined $r;
+ return undef;
+ }
+ return $buf;
+ });
$client->send_response($resp);