--- trunk2/all2all.pl 2004/06/19 18:16:20 372 +++ trunk2/all2all.pl 2004/06/20 15:49:09 373 @@ -9,13 +9,10 @@ use strict; use Data::Dumper; use Carp; -use Log::Log4perl qw(get_logger :levels); use lib './lib'; use WebPAC; -Log::Log4perl->init('log.conf'); -my $log = get_logger(); my $webpac = new WebPAC( code_page => 'ISO-8859-2', @@ -23,6 +20,8 @@ # debug => 1, ) || die; +my $log = $webpac->_get_logger(); + $|=1; my $maxmfn = $webpac->open_isis(