|
From: <ssc...@us...> - 2003-08-22 02:34:42
|
Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv17799
Modified Files:
Proxy.pm
Log Message:
eliminate delays in reading from pipes in last checkin
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** Proxy.pm 21 Aug 2003 19:47:36 -0000 1.31
--- Proxy.pm 21 Aug 2003 20:53:59 -0000 1.32
***************
*** 216,222 ****
my $message;
! if ( ( $self->{pipe_cache__} eq '' ) && &{ $self->{pipeready_} }($handle) ) {
! # refill the cache when it is empty
sysread($handle, my $string, -s $handle);
--- 216,222 ----
my $message;
! if ( &{ $self->{pipeready_} }($handle) ) {
! # add data to the pipe cache whenever the pipe is ready
sysread($handle, my $string, -s $handle);
|