Make sure reading groups are not duplicated

Kimtaro · Jan 11, 2010 · 21b8870 · 21b8870
1 parent 34b40f8
commit 21b8870
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/script/importers/jmdict.pl b/script/importers/jmdict.pl
@@ -376,6 +376,7 @@ sub compile_reading_groups {
       my $group = $groups->{$key};
       if ( any { $_->{reading} eq $reading->{reading} } @{$group->{readings}} ) {
         push @{$current->{reading_groups}}, $group;
+        delete $groups->{$key};
         last;
       }
     }