--- trunk/lib/WebPAC/Normalize.pm	2006/07/03 21:08:07	574
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/04 11:08:43	579
@@ -35,11 +35,11 @@
 
 =head1 VERSION
 
-Version 0.10
+Version 0.11
 
 =cut
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 
 =head1 SYNOPSIS
 
@@ -326,7 +326,7 @@
 		warn "## saved/3 ", dump( $field ),$/ if ($debug);
 	}
 
-	return @m;
+	return \@m;
 }
 
 =head2 _debug
@@ -565,7 +565,8 @@
 
 	warn "### marc_remove before = ", dump( $marc ), $/ if ($debug > 2);
 
-	foreach my $i ( 0 .. $#{ $marc } ) {
+	my $i = 0;
+	foreach ( 0 .. $#{ $marc } ) {
 		last unless (defined $marc->[$i]);
 		warn "#### working on ",dump( @{ $marc->[$i] }), $/ if ($debug > 3);
 		if ($marc->[$i]->[0] eq $f) {
@@ -591,6 +592,7 @@
 				}
 			}
 		}
+		$i++;
 	}
 
 	warn "### marc_remove($f", $sf ? ",$sf" : "", ") after = ", dump( $marc ), $/ if ($debug > 2);