r878@llin: dpavlin | 2006-08-26 14:00:08 +0200

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 93fc160..c7b1d03 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -291,7 +291,8 @@ sub open {
 #                              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";
                                        }
                                }
 
-warn "## <-- $f_nr ## $l\n";
+                               $log->debug("<=- $f_nr ## $l");
                                return $l;
                });