--- trunk/lib/WebPAC/Input.pm	2006/07/13 13:55:15	598
+++ trunk/lib/WebPAC/Input.pm	2006/07/13 13:55:19	599
@@ -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})) {
@@ -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.