--- trunk/lib/WebPAC/Normalize.pm	2009/06/02 13:14:59	1214
+++ trunk/lib/WebPAC/Normalize.pm	2011/04/21 17:10:04	1364
@@ -123,7 +123,7 @@
 	$load_row_coderef = $arg->{load_row_coderef};
 
 	no strict 'subs';
-	no warnings 'redefine';
+	no warnings 'all';
 	eval "$arg->{rules};";
 	die "error evaling $arg->{rules}: $@\n" if ($@);
 
@@ -954,7 +954,7 @@
 
 Always return field as array
 
-  foreach my $d ( rec_array('field') {
+  foreach my $d ( rec_array('field') ) {
 	warn $d;
   }