--- trunk/lib/WebPAC/Input.pm 2006/08/26 12:00:31 624 +++ trunk/lib/WebPAC/Input.pm 2006/08/26 12:00:36 625 @@ -291,7 +291,8 @@ # return unless defined($l); # return $l unless ($rec_regex && $f_nr); -warn "## --> $f_nr ## $l\n"; + $log->debug("-=> $f_nr ## $l"); + # codepage conversion and recode_regex # from_to($l, $code_page, $self->{'encoding'}); from_to($l, $code_page, 'utf-8'); @@ -308,7 +309,7 @@ } } -warn "## <-- $f_nr ## $l\n"; + $log->debug("<=- $f_nr ## $l"); return $l; });