Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21976/Proxy
Modified Files:
POP3.pm Proxy.pm
Log Message:
Fixed a bug that accepting concurrent POP3S connections causes an error
Index: POP3.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/POP3.pm,v
retrieving revision 1.123
retrieving revision 1.124
diff -C2 -d -r1.123 -r1.124
*** POP3.pm 25 Apr 2008 16:26:19 -0000 1.123
--- POP3.pm 25 Apr 2008 23:21:47 -0000 1.124
***************
*** 342,346 ****
$self->log_( 2, "digest='$md5hex'" );
! my ($response, $ok) = # PROFILE BLOCK START
$self->get_response_( $mail, $client,
"APOP $self->{apop_user__} $md5hex", 0, 1 ); # PROFILE BLOCK STOP
--- 342,346 ----
$self->log_( 2, "digest='$md5hex'" );
! my ( $response, $ok ) = # PROFILE BLOCK START
$self->get_response_( $mail, $client,
"APOP $self->{apop_user__} $md5hex", 0, 1 ); # PROFILE BLOCK STOP
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** Proxy.pm 25 Apr 2008 16:26:20 -0000 1.66
--- Proxy.pm 25 Apr 2008 23:21:47 -0000 1.67
***************
*** 272,276 ****
}
! close $client;
}
}
--- 272,276 ----
}
! close $client if ( $self->name() ne 'pop3s' );
}
}
|
