commit - 04ab4c192a0fc027d6e0f5a74fde5e27bf34f1b9
commit + 2042cc6e3c9eebd4097a06555b78471b53032309
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);