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"; |
warn "# disabled logging for Text::Exception\n" if ($log_debug); |
180 |
} elsif ($file) { |
} elsif ($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); |