--- trunk/lib/WebPAC/Normalize.pm 2009/06/02 13:14:59 1214 +++ trunk/lib/WebPAC/Normalize.pm 2009/06/02 13:17:24 1216 @@ -954,7 +954,7 @@ Always return field as array - foreach my $d ( rec_array('field') { + foreach my $d ( rec_array('field') ) { warn $d; }