--- trunk/lib/WebPAC/Validate.pm 2007/11/19 16:50:10 1049 +++ trunk/lib/WebPAC/Validate.pm 2007/11/19 16:50:14 1051 @@ -294,7 +294,7 @@ if ( ref($v->{$sf}) eq 'ARRAY' ) { $sf_repeatable->{$sf}++; }; - if (! first { $_ eq $sf } @{ $r->{$f} }) { + if (! defined first { $_ eq $sf } @{ $r->{$f} }) { $errors->{ $f }->{subfield}->{extra}->{$sf}++; } }