[popfile-commit] engine/Proxy POP3.pm, 1.123, 1.124 Proxy.pm, 1.66, 1.67

[naoki i. <am...@us...>]

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' );
          }
      }