--- trunk/lib/WebPAC/Input.pm	2006/07/13 11:54:33	597
+++ trunk/lib/WebPAC/Input.pm	2006/08/01 13:59:47	606
@@ -16,11 +16,11 @@
 
 =head1 VERSION
 
-Version 0.08
+Version 0.09
 
 =cut
 
-our $VERSION = '0.08';
+our $VERSION = '0.09';
 
 =head1 SYNOPSIS
 
@@ -252,7 +252,11 @@
 	
 				$l =~ s/($recode_regex)/$recode_map->{$1}/g if ($recode_regex && $recode_map);
 
-				return $l unless ($rec_regex);
+				## FIXME remove this warning when we are sure that none of API is calling
+				## this wrongly
+				#warn "filter called without field number" unless ($f_nr);
+
+				return $l unless ($rec_regex && $f_nr);
 
 				# apply regexps
 				if ($rec_regex && defined($rec_regex->{$f_nr})) {
@@ -522,7 +526,7 @@
 	return $out;
 }
 
-=head1 modify_record_regexps
+=head2 modify_record_regexps
 
 Generate hash with regexpes to be applied using L<filter>.
 
@@ -604,7 +608,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.
+Copyright 2005-2006 Dobrica Pavlinusic, All Rights Reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.