Changeset 835 for server/common


Ignore:
Timestamp:
Sep 8, 2008, 1:45:35 AM (16 years ago)
Author:
andersk
Message:
Meh.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • server/common/oursrc/execsys/svnproxy.pl

    r825 r835  
    8282}
    8383
    84 # Write the client's response to svnserve.
    85 $buf = $response;
    86 while ($buf ne '') {
    87     my $n = syswrite(OUT, $buf);
    88     next if $n < 0 and $! == EINTR;
    89     $n >= 0 or die "$0: write: $!";
    90     $buf = substr($buf, $n);
    91 }
    92 
    9384# Finally, go into a select loop to transfer the remaining data
    94 # (STDIN -> OUT, IN -> STDOUT).
    95 my ($cbuf, $sbuf) = ('', '');
     85# (STDIN -> OUT, IN -> STDOUT), including the client's response to svnserve.
     86my ($cbuf, $sbuf) = ($response, '');
    9687my ($rin, $win, $ein) = ('', '', '');
    9788my ($stdout, $out, $stdin, $in) = (fileno(STDOUT), fileno(OUT), fileno(STDIN), fileno(IN));
    9889vec($win, $stdout, 1) = 0;
    99 vec($win, $out, 1) = 0;
    100 vec($rin, $stdin, 1) = 1;
     90vec($win, $out, 1) = 1;
     91vec($rin, $stdin, 1) = 0;
    10192vec($rin, $in, 1) = 1;
    10293while (vec($win, $stdout, 1) or vec($win, $out, 1) or
Note: See TracChangeset for help on using the changeset viewer.