--- trunk/lib/WebPAC/Common.pm	2005/07/24 15:07:56	32
+++ trunk/lib/WebPAC/Common.pm	2005/11/20 20:13:33	73
@@ -175,11 +175,12 @@
 
 _log4perl_
 		warn "# $name is using debug logger\n" if ($log_debug);
-	} elsif ($name !~ m/Test::Exception/o) {
+	} elsif ($name =~ m/Test::Exception/o) {
 		warn "# disabled logging for Text::Exception\n" if ($log_debug);
-	} elsif ($file) {
+	} elsif (-e $file) {
 		warn "# $name is using $file logger\n" if ($log_debug);
 		Log::Log4perl->init($file);
+		return 1;
 	} else {
 		warn "# $name is using null logger\n" if ($log_debug);
 	}