[popfile-commit] engine popfile.pl,1.205,1.206

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

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

Modified Files:
	popfile.pl 
Log Message:
Fix up the constructors so that they call the parent classes, add new parameter method to POPFile::Configuration, fix up calls to child and flush_child_data for proxies; various other minor tweaks.  With this commit POPFile OO is limping along... my guess is the next commit and you'll be able to try it out

Index: popfile.pl
===================================================================
RCS file: /cvsroot/popfile/engine/popfile.pl,v
retrieving revision 1.205
retrieving revision 1.206
diff -C2 -d -r1.205 -r1.206
*** popfile.pl	3 Mar 2003 15:21:29 -0000	1.205
--- popfile.pl	3 Mar 2003 22:01:27 -0000	1.206
***************
*** 72,76 ****
  
      # Check that the $pipe is still a valid handle
!     
      if ( !defined( $pipe ) ) {
          return 0;
--- 72,76 ----
  
      # Check that the $pipe is still a valid handle
! 
      if ( !defined( $pipe ) ) {
          return 0;
***************
*** 78,89 ****
  
      if ( $on_windows ) {
!         
          # I am NOT doing a select() here because that does not work
          # on Perl running on Windows.  -s returns the "size" of the file
          # (in this case a pipe) and will be non-zero if there is data to read
!         
          return ( ( -s $pipe ) > 0 );
      } else {
!         
          # Here I do a select because we are not running on Windows where
          # you can't select() on a pipe
--- 78,89 ----
  
      if ( $on_windows ) {
! 
          # I am NOT doing a select() here because that does not work
          # on Perl running on Windows.  -s returns the "size" of the file
          # (in this case a pipe) and will be non-zero if there is data to read
! 
          return ( ( -s $pipe ) > 0 );
      } else {
! 
          # Here I do a select because we are not running on Windows where
          # you can't select() on a pipe
***************
*** 264,268 ****
  foreach my $type (keys %components) {
       foreach my $name (keys %{$components{$type}}) {
!           $components{$type}{$name}->configuration( $components{core}{config} ) if ( $name ne 'config' );
            $components{$type}{$name}->logger(        $components{core}{logger} ) if ( $name ne 'logger' );
       }
--- 264,268 ----
  foreach my $type (keys %components) {
       foreach my $name (keys %{$components{$type}}) {
!           $components{$type}{$name}->configuration( $components{core}{config} );
            $components{$type}{$name}->logger(        $components{core}{logger} ) if ( $name ne 'logger' );
       }