Update of /cvsroot/popfile/engine/Proxy
In directory sc8-pr-cvs1:/tmp/cvs-serv21023/Proxy
Modified Files:
Proxy.pm
Log Message:
Use PROFILE PLATFORM START to enable profiler to ignore platform code in Proxy and bring tests to 100%
Index: Proxy.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Proxy/Proxy.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** Proxy.pm 21 Aug 2003 20:53:59 -0000 1.32
--- Proxy.pm 28 Aug 2003 15:27:56 -0000 1.33
***************
*** 211,218 ****
if ( $^O eq "MSWin32" ) {
- # PLATFORM SPECIFIC CODE
# bypasses bug in -s $pipe under ActivePerl
! my $message;
if ( &{ $self->{pipeready_} }($handle) ) {
--- 211,217 ----
if ( $^O eq "MSWin32" ) {
# bypasses bug in -s $pipe under ActivePerl
! my $message; # PROFILE PLATFORM START MSWin32
if ( &{ $self->{pipeready_} }($handle) ) {
***************
*** 231,236 ****
$message = $1 if ($self->{pipe_cache__} =~ s/(.*?\n)//);
! return $message;
!
} else {
--- 230,234 ----
$message = $1 if ($self->{pipe_cache__} =~ s/(.*?\n)//);
! return $message; # PROFILE PLATFORM STOP
} else {
|
