[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage/Website TestDB.pm,1.13,1.14

[Teemu A. <in...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24446

Modified Files:
	TestDB.pm 
Log Message:
oi2_manage test_db did not work because sanity check always returned "No DBI datasources" although there is

Index: TestDB.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/TestDB.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** TestDB.pm	17 Mar 2005 14:58:04 -0000	1.13
--- TestDB.pm	20 Mar 2005 16:03:35 -0000	1.14
***************
*** 29,34 ****
      # Perform initial sanity checks
  
!     unless ( ref $datasource_config ne 'HASH' and
!              scalar keys %{ $datasource_config } ) {
          $self->_ok( $action,
                      'No DBI datasources; no connection attempted.' );
--- 29,34 ----
      # Perform initial sanity checks
  
!     if ( ref( $datasource_config ) ne 'HASH' ||
!              !scalar keys %{ $datasource_config } ) {
          $self->_ok( $action,
                      'No DBI datasources; no connection attempted.' );