|
From: <jgr...@us...> - 2003-07-26 18:28:31
|
Update of /cvsroot/popfile/engine/Test
In directory sc8-pr-cvs1:/tmp/cvs-serv15772/Test
Modified Files:
SimpleProxy.pm
Log Message:
Remove all tabs from the source code and fix my editor so that *I* don't introduce any more
Index: SimpleProxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Test/SimpleProxy.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** SimpleProxy.pm 26 Jul 2003 17:14:43 -0000 1.7
--- SimpleProxy.pm 26 Jul 2003 18:28:28 -0000 1.8
***************
*** 110,114 ****
$self->tee_( $handle, "$1$eol" );
select( undef, undef, undef, 0.1 );
! }
# If there's data available to read then read it into the received
--- 110,114 ----
$self->tee_( $handle, "$1$eol" );
select( undef, undef, undef, 0.1 );
! }
# If there's data available to read then read it into the received
***************
*** 118,123 ****
if ( defined( $line ) ) {
$self->{received__} .= $line;
! }
! }
} else {
$self->log_( "service_server: remote client is not connected" );
--- 118,123 ----
if ( defined( $line ) ) {
$self->{received__} .= $line;
! }
! }
} else {
$self->log_( "service_server: remote client is not connected" );
***************
*** 131,136 ****
$self->tee_( $handle, "To The Jungle$eol" );
! }
! }
}
}
--- 131,136 ----
$self->tee_( $handle, "To The Jungle$eol" );
! }
! }
}
}
***************
*** 173,179 ****
my $line = <$remote>;
if ( defined( $line ) ) {
! last if ( $line =~ /__POPFILE__ABORT__CHILD__/ );
print $client $line;
! } else {
last;
}
--- 173,179 ----
my $line = <$remote>;
if ( defined( $line ) ) {
! last if ( $line =~ /__POPFILE__ABORT__CHILD__/ );
print $client $line;
! } else {
last;
}
|