[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Setup InitializeSPOPS.pm,1.1,1.2

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4268/lib/OpenInteract2/Setup

Modified Files:
	InitializeSPOPS.pm 
Log Message:
cosmetic + debugging (show the names of classes brought in)


Index: InitializeSPOPS.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup/InitializeSPOPS.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InitializeSPOPS.pm	24 Jan 2005 17:17:31 -0000	1.1
--- InitializeSPOPS.pm	13 Feb 2005 20:26:23 -0000	1.2
***************
*** 37,47 ****
              push @alias_classes, $alias_class if ( $alias_class );
          }
!         OpenInteract2::Setup->new(
              'require classes',
              classes      => \@alias_classes,
              classes_type => 'SPOPS implementations'
          )->run();
!         $log->info( "Brought in ", scalar( @alias_classes ), " SPOPS ",
!                     "implementation classes (aka, 'alias classes')" );
      }
      else {
--- 37,49 ----
              push @alias_classes, $alias_class if ( $alias_class );
          }
!         my $req = OpenInteract2::Setup->new(
              'require classes',
              classes      => \@alias_classes,
              classes_type => 'SPOPS implementations'
          )->run();
!         my $req_alias = $req->param( 'required_classes' );
!         $log->info( "Brought in ", scalar( @{ $req_alias } ), " SPOPS ",
!                     "implementation classes (aka, 'alias classes'): ",
!                     join( ', ', @{ $req_alias } ) );
      }
      else {