--- trunk/lib/WebPAC/Input.pm	2006/08/01 13:59:47	606
+++ trunk/lib/WebPAC/Input.pm	2006/08/23 11:04:32	613
@@ -16,11 +16,11 @@
 
 =head1 VERSION
 
-Version 0.09
+Version 0.10
 
 =cut
 
-our $VERSION = '0.09';
+our $VERSION = '0.10';
 
 =head1 SYNOPSIS
 
@@ -258,14 +258,21 @@
 
 				return $l unless ($rec_regex && $f_nr);
 
+#				my $max_regex = 100;
+
 				# apply regexps
 				if ($rec_regex && defined($rec_regex->{$f_nr})) {
 					$log->logconfess("regexps->{$f_nr} must be ARRAY") if (ref($rec_regex->{$f_nr}) ne 'ARRAY');
 					my $c = 0;
 					foreach my $r (@{ $rec_regex->{$f_nr} }) {
-						while ( eval '$l =~ ' . $r ) { $c++ };
+						#$log->debug("\$l = $l\neval \$l =~ $r");
+						eval '$l =~ ' . $r;
+						$log->error("error applying regex: $r") if ($@);
+
+#						while ( $c < $max_regex && eval '$l =~ ' . $r ) { $c++ };
+#						$log->error("field $f_nr has more than $max_regex regex iterations\n\$l = $l\neval \$l =~ $r") if ($c == $max_regex);
+
 					}
-					warn "## field $f_nr triggered $c regexpes\n" if ($c && $self->{debug});
 				}
 
 				return $l;