minor tweaks to test modify_file

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 2388d35..3c6c9c9 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -282,10 +282,11 @@ sub open {
                $log->debug("position: $pos\n");
 
                my $rec = $ll_db->fetch_rec($pos, sub {
-                               my ($l,$f_nr) = @_;
+                               my ($l,$f_nr,$debug) = @_;
 #                              return unless defined($l);
 #                              return $l unless ($rec_regex && $f_nr);
 
+                               warn "-=> $f_nr ## $l\n" if ($debug);
                                $log->debug("-=> $f_nr ## $l");
 
                                # codepage conversion and recode_regex
@@ -301,12 +302,14 @@ sub open {
                                                eval '$l =~ ' . $r;
                                                if ($old_l ne $l) {
                                                        $log->debug("REGEX on $f_nr eval \$l =~ $r\n## old l: [$old_l]\n## new l: [$l]");
+                                                       warn "*** $r |$old_l| -> |$l|\n" if ($debug);
                                                }
                                                $log->error("error applying regex: $r") if ($@);
                                        }
                                }
 
                                $log->debug("<=- $f_nr ## $l");
+                               warn "<=- $f_nr ## $l\n" if ($debug);
                                return $l;
                });
 
@@ -557,7 +560,7 @@ sub dump_ascii {
 
 =head2 modify_record_regexps
 
-Generate hash with regexpes to be applied using l<filter>.
+Generate hash with regexpes to be applied using L<filter>.
 
   my $regexpes = $input->modify_record_regexps(
                900 => { '^a' => { ' : ' => '^b' } },
@@ -618,7 +621,7 @@ sub modify_record_regexps {
 
 =head2 modify_file_regexps
 
-Generate hash with regexpes to be applied using l<filter> from
+Generate hash with regexpes to be applied using L<filter> from
 pseudo hash/yaml format for regex mappings.
 
 It should be obvious: