175 |
|
|
176 |
_log4perl_ |
_log4perl_ |
177 |
warn "# $name is using debug logger\n" if ($log_debug); |
warn "# $name is using debug logger\n" if ($log_debug); |
178 |
} elsif ($name !~ m/Test::Exception/o) { |
} elsif ($name =~ m/Test::Exception/o) { |
179 |
warn "# disabled logging for Text::Exception\n" if ($log_debug); |
warn "# disabled logging for Text::Exception\n" if ($log_debug); |
180 |
} elsif ($file) { |
} elsif (-e $file) { |
181 |
warn "# $name is using $file logger\n" if ($log_debug); |
warn "# $name is using $file logger\n" if ($log_debug); |
182 |
Log::Log4perl->init($file); |
Log::Log4perl->init($file); |
183 |
|
return 1; |
184 |
} else { |
} else { |
185 |
warn "# $name is using null logger\n" if ($log_debug); |
warn "# $name is using null logger\n" if ($log_debug); |
186 |
} |
} |