[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Setup.pm,1.52,1.53

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

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

Modified Files:
	Setup.pm 
Log Message:
cosmetic

Index: Setup.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Setup.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -C2 -d -r1.52 -r1.53
*** Setup.pm	26 Sep 2004 19:26:18 -0000	1.52
--- Setup.pm	31 Oct 2004 00:24:59 -0000	1.53
***************
*** 584,589 ****
      my $cache_config = CTX->lookup_cache_config;
      unless ( lc $cache_config->{use} eq 'yes' ) {
!         $log->is_debug &&
!             $log->debug( "Cache not configured for usage" );
          return undef;
      }
--- 584,588 ----
      my $cache_config = CTX->lookup_cache_config;
      unless ( lc $cache_config->{use} eq 'yes' ) {
!         $log->is_debug && $log->debug( "Cache not configured for usage" );
          return undef;
      }
***************
*** 599,606 ****
      }
      my $cache = $cache_class->new( $cache_config );
!     $log->is_debug &&
!         $log->debug( "Cache setup ok" );
  
      if ( $cache_config->{cleanup} eq 'yes' ) {
          $cache->purge;
      }
--- 598,606 ----
      }
      my $cache = $cache_class->new( $cache_config );
!     $log->is_debug && $log->debug( "Cache setup with '$cache_class' ok" );
  
      if ( $cache_config->{cleanup} eq 'yes' ) {
+     $log->is_debug &&
+         $log->debug( "Cache configured for cleanup at startup, purging..." );
          $cache->purge;
      }