- # apply regexps
- if ($arg->{regexps} && defined($arg->{regexps}->{$f_nr})) {
- confess "regexps->{$f_nr} must be ARRAY" if (ref($arg->{regexps}->{$f_nr}) ne 'ARRAY');
- my $c = 0;
- foreach my $r (@{ $arg->{regexps}->{$f_nr} }) {
- while ( eval '$l =~ ' . $r ) { $c++ };
- }
- warn "## field $f_nr triggered $c regexpes\n" if ($c && $self->{debug});
- }
-