make sure zh_TW and zh_CN will be included in language list

1 files changed, 1 insertions, 1 deletions

diff --git a/draklive b/draklive
index 646c03e..76758f0 100755
--- a/draklive
+++ b/draklive
@@ -359,7 +359,7 @@ sub write_dist_lists {
 
     require lang;
     my @live_langs = get_langs($live);
-    my @langs = grep { member(lang::locale_to_main_locale($_), @live_langs) } lang::list_langs();
+    my @langs = grep { member($_, @live_langs) || member(lang::locale_to_main_locale($_), @live_langs) } lang::list_langs();
     my $langs_file = $lists_dir . '/' . $live->get_name . '.langs';
     output_p($langs_file, map { lang::l2name($_) . " (" . $_ . ")\n" } sort(@langs));
 }