From 21b8870c06d329c5c171393645b53b188839e345 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kim=20Ahlstr=C3=B6m?= <kim@cerego.com>
Date: Mon, 11 Jan 2010 21:17:41 +0900
Subject: [PATCH] Make sure reading groups are not duplicated

---
 script/importers/jmdict.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/script/importers/jmdict.pl b/script/importers/jmdict.pl
index cd4c55c..6cd5057 100644
--- 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;
       }
     }