[Netpass-devel] NetPass/lib/NetPass Config.pm,1.39,1.40

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8038/lib/NetPass

Modified Files:
	Config.pm 
Log Message:
cleanup

Index: Config.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/Config.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- Config.pm	17 May 2005 20:34:27 -0000	1.39
+++ Config.pm	19 May 2005 20:15:04 -0000	1.40
@@ -81,7 +81,7 @@
 
     my $newCfg = $self->{'db'}->getConfig();
     if (ref($newCfg) ne "HASH") {
-	    _log("WARNING", "couldnt check for new config: $newCfg");
+	    _log("ERROR", "couldnt check for new config: $newCfg");
 	    return;
     }
 
@@ -766,7 +766,7 @@
 
 	_log("DEBUG", "policy(-key $pvar, -network $nw)\n") if $self->debug;
 
-	$self->reloadIfChanged();
+	$self->reloadIfChanged() || return undef;
 		
 	$pvar =~ tr [A-Z] [a-z]; # because of AutoLowerCase