From: <ssc...@us...> - 2003-03-18 02:24:30
|
Update of /cvsroot/popfile/engine/Proxy In directory sc8-pr-cvs1:/tmp/cvs-serv14595 Modified Files: Proxy.pm Log Message: another stupid syntax error Index: Proxy.pm =================================================================== RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Proxy.pm 18 Mar 2003 00:18:07 -0000 1.6 --- Proxy.pm 18 Mar 2003 02:24:26 -0000 1.7 *************** *** 339,344 **** last if ( $self->{alive_} == 0 ); ! print $client $_; ! #$self->tee_($client, $_); # The termination has to be a single line with exactly a dot on it and nothing --- 339,344 ---- last if ( $self->{alive_} == 0 ); ! #print $client $_; ! $self->tee_($client, $_); # The termination has to be a single line with exactly a dot on it and nothing *************** *** 420,424 **** if ( $mail->connected ) { my $selector = new IO::Select( $mail ); ! my ($ready) = $selector->can_read( (!$null_resp,$self->global_config_( 'timeout' ),.5) ); if ( ( defined( $ready ) ) && ( $ready == $mail ) ) { --- 420,424 ---- if ( $mail->connected ) { my $selector = new IO::Select( $mail ); ! my ($ready) = $selector->can_read( (!$null_resp?$self->global_config_( 'timeout' ):.5) ); if ( ( defined( $ready ) ) && ( $ready == $mail ) ) { |