svnno****@sourc*****
svnno****@sourc*****
2012年 5月 1日 (火) 23:16:39 JST
Revision: 27
http://sourceforge.jp/projects/miranda-jp/svn/view?view=rev&revision=27
Author: taguchi-ch
Date: 2012-05-01 23:16:39 +0900 (Tue, 01 May 2012)
Log Message:
-----------
a little modified
Modified Paths:
--------------
trunk/miranda-tools/lpgen/trans.pl
-------------- next part --------------
Modified: trunk/miranda-tools/lpgen/trans.pl
===================================================================
--- trunk/miranda-tools/lpgen/trans.pl 2012-05-01 13:23:50 UTC (rev 26)
+++ trunk/miranda-tools/lpgen/trans.pl 2012-05-01 14:16:39 UTC (rev 27)
@@ -34,7 +34,6 @@
}
my ($lang_english, $langDB_file, $newlang_file) = @ARGV;
-my $key = '';
my %old_headers;
my @all_headers = ("Miranda Language Pack","Language:","Locale:","Authors:","Author-email:","Last-Modified-Using:","Plugins-included:","; Generated by lpgen on","; Translations:");
my @headers = ("Language:","Locale:","Authors:","Author-email:");
@@ -111,6 +110,7 @@
{
my ($langDB_file, @all_headers) = @_;
my %old_trans;
+ my $key = '';
open my $fh, '<', $langDB_file
or die qq/Error : Cannot open "$langDB_file": $!/;