fix for mods being hashref now
authorShawn Boyette <sboyette@esilibrary.com>
Mon, 20 Apr 2009 06:07:57 +0000 (06:07 +0000)
committerShawn Boyette <sboyette@esilibrary.com>
Mon, 20 Apr 2009 06:07:57 +0000 (06:07 +0000)
Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm

index 8ba8892..c7b5b6f 100644 (file)
@@ -334,7 +334,7 @@ sub validate {
 
     # test mod names if we have a set to check against
     if (defined $self->{conf}{mods}) {
-        for my $mod ( @{$map->{mods}} ) {
+        for my $mod ( keys %{$map->{mods}} ) {
             die "Modifier '$mod' not allowed\n"
               unless $self->{conf}{mods}{$mod};
         }