[popfile-commit] engine/POPFile Loader.pm,1.1,1.2

[<ssc...@us...>]

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

Modified Files:
	Loader.pm 
Log Message:
call CORE_version in scalar context to get the version string

Index: Loader.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Loader.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Loader.pm	12 Jul 2003 12:42:47 -0000	1.1
--- Loader.pm	12 Jul 2003 20:22:00 -0000	1.2
***************
*** 69,75 ****
  # CORE_loader_init
  #
! # Initiali
  #
- # ***CORE***
  #---------------------------------------------------------------------------------------------
  
--- 69,74 ----
  # CORE_loader_init
  #
! # Initialize things only needed in CORE
  #
  #---------------------------------------------------------------------------------------------
  
***************
*** 436,440 ****
      foreach my $type (keys %{$self->{components__}}) {
          foreach my $name (keys %{$self->{components__}{$type}}) {
!             $self->{components__}{$type}{$name}->version(       $self->CORE_version()                    );
              $self->{components__}{$type}{$name}->configuration( $self->{components__}{core}{config} );
              $self->{components__}{$type}{$name}->logger(        $self->{components__}{core}{logger} ) if ( $name ne 'logger' );
--- 435,439 ----
      foreach my $type (keys %{$self->{components__}}) {
          foreach my $name (keys %{$self->{components__}{$type}}) {
!             $self->{components__}{$type}{$name}->version(       scalar($self->CORE_version())                    );
              $self->{components__}{$type}{$name}->configuration( $self->{components__}{core}{config} );
              $self->{components__}{$type}{$name}->logger(        $self->{components__}{core}{logger} ) if ( $name ne 'logger' );