Changeset 835 for server/common

Timestamp:

Sep 8, 2008, 1:45:35 AM (17 years ago)

Author:

andersk

Message:

Meh.

File:

• server/common/oursrc/execsys/svnproxy.pl (modified) (1 diff)

server/common/oursrc/execsys/svnproxy.pl

@@ -82 +82 @@
 }
 
-# Write the client's response to svnserve.
-$buf = $response;
-while ($buf ne '') {
-    my $n = syswrite(OUT, $buf);
-    next if $n < 0 and $! == EINTR;
-    $n >= 0 or die "$0: write: $!";
-    $buf = substr($buf, $n);
-}
-
 # Finally, go into a select loop to transfer the remaining data
-# (STDIN -> OUT, IN -> STDOUT).
-my ($cbuf, $sbuf) = ('', '');
+# (STDIN -> OUT, IN -> STDOUT), including the client's response to svnserve.
+my ($cbuf, $sbuf) = ($response, '');
 my ($rin, $win, $ein) = ('', '', '');
 my ($stdout, $out, $stdin, $in) = (fileno(STDOUT), fileno(OUT), fileno(STDIN), fileno(IN));
 vec($win, $stdout, 1) = 0;
-vec($win, $out, 1) = 0;
-vec($rin, $stdin, 1) = 1;
+vec($win, $out, 1) = 1;
+vec($rin, $stdin, 1) = 0;
 vec($rin, $in, 1) = 1;
 while (vec($win, $stdout, 1) or vec($win, $out, 1) or