commit - f363c7f19c5c1aee482e2c3ef9fa75a56bebbd2e
commit + 4b652004e7b2173b05e8d4fbe97143810c3c250a
blob - ed3b1f41c1f9afd57e3a1c0dea51559d58f99977
blob + 5c7cbf390e7d1c58fbaf2f567a17268e42982935
--- regress/cmdline/http-server
+++ regress/cmdline/http-server
@@ -136,14 +136,14 @@ sub handle_post {
 	}
 
 	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);