[popfile-commit] engine/Proxy Proxy.pm,1.24,1.25

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv13266/Proxy

Modified Files:
	Proxy.pm 
Log Message:
Small changes to help the coverage code spot blocks of code that are being executed; make coverage.pl warn if it detects an unterminated PROFILE BLOCK

Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Proxy.pm	21 Jul 2003 19:53:56 -0000	1.24
--- Proxy.pm	26 Jul 2003 14:59:46 -0000	1.25
***************
*** 85,93 ****
      # Open the socket used to receive request for proxy service
  
!     $self->{server__} = IO::Socket::INET->new( Proto     => 'tcp',
                                      $self->config_( 'local' ) == 1 ? (LocalAddr => 'localhost') : (),
                                      LocalPort => $self->config_( 'port' ),
                                      Listen    => SOMAXCONN,
!                                     Reuse     => 1 );
  
      if ( !defined( $self->{server__} ) ) {
--- 85,93 ----
      # Open the socket used to receive request for proxy service
  
!     $self->{server__} = IO::Socket::INET->new( Proto     => 'tcp', # PROFILE BLOCK START
                                      $self->config_( 'local' ) == 1 ? (LocalAddr => 'localhost') : (),
                                      LocalPort => $self->config_( 'port' ),
                                      Listen    => SOMAXCONN,
!                                     Reuse     => 1 ); # PROFILE BLOCK STOP
  
      if ( !defined( $self->{server__} ) ) {
***************
*** 526,533 ****
  
      # Connect to the real mail server on the standard port
!    $mail = IO::Socket::INET->new(
                  Proto    => "tcp",
                  PeerAddr => $hostname,
!                 PeerPort => $port );
  
      # Check that the connect succeeded for the remote server
--- 526,533 ----
  
      # Connect to the real mail server on the standard port
!    $mail = IO::Socket::INET->new( # PROFILE BLOCK START
                  Proto    => "tcp",
                  PeerAddr => $hostname,
!                 PeerPort => $port ); # PROFILE BLOCK STOP
  
      # Check that the connect succeeded for the remote server