|
Lines 1108-1120
sub keys_merge_translation
Link Here
|
| 1108 |
{ |
1108 |
{ |
| 1109 |
my ($lang) = @_; |
1109 |
my ($lang) = @_; |
| 1110 |
|
1110 |
|
| 1111 |
if ( ! -d $lang && $MULTIPLE_OUTPUT) |
1111 |
my $outpath = "$OUTFILE"; |
|
|
1112 |
|
| 1113 |
if ($MULTIPLE_OUTPUT) |
| 1112 |
{ |
1114 |
{ |
| 1113 |
mkdir $lang or -d $lang or die "Cannot create subdirectory $lang: $!\n"; |
1115 |
$outpath = "$lang/$outpath"; |
|
|
1116 |
|
| 1117 |
if ( ! -d $lang ) |
| 1118 |
{ |
| 1119 |
mkdir $lang or -d $lang or die "Cannot create subdirectory $lang: $!\n"; |
| 1120 |
} |
| 1114 |
} |
1121 |
} |
| 1115 |
|
1122 |
|
| 1116 |
open INPUT, "<${FILE}" or die "Cannot open ${FILE}: $!\n"; |
1123 |
open INPUT, "<${FILE}" or die "Cannot open ${FILE}: $!\n"; |
| 1117 |
open OUTPUT, ">$lang/$OUTFILE" or die "Cannot open $lang/$OUTFILE: $!\n"; |
1124 |
open OUTPUT, ">$outpath" or die "Cannot open $outpath: $!\n"; |
| 1118 |
binmode (OUTPUT) if $^O eq 'MSWin32'; |
1125 |
binmode (OUTPUT) if $^O eq 'MSWin32'; |
| 1119 |
|
1126 |
|
| 1120 |
while (<INPUT>) |
1127 |
while (<INPUT>) |
|
Lines 1159-1165
sub keys_merge_translation
Link Here
|
| 1159 |
close OUTPUT; |
1166 |
close OUTPUT; |
| 1160 |
close INPUT; |
1167 |
close INPUT; |
| 1161 |
|
1168 |
|
| 1162 |
print "CREATED $lang/$OUTFILE\n" unless $QUIET_ARG; |
1169 |
print "CREATED $outpath\n" unless $QUIET_ARG; |
| 1163 |
} |
1170 |
} |
| 1164 |
|
1171 |
|
| 1165 |
sub keys_merge_translations |
1172 |
sub keys_merge_translations |
|
Lines 1174-1180
sub keys_merge_translations
Link Here
|
| 1174 |
} |
1181 |
} |
| 1175 |
else |
1182 |
else |
| 1176 |
{ |
1183 |
{ |
| 1177 |
keys_merge_translation ("."); |
1184 |
keys_merge_translation (); |
| 1178 |
} |
1185 |
} |
| 1179 |
} |
1186 |
} |
| 1180 |
|
1187 |
|
| 1181 |
- |
|
|
