Close file handles
This commit is contained in:
@@ -31,14 +31,17 @@ sub lang_keys {
|
|||||||
return $keys;
|
return $keys;
|
||||||
}
|
}
|
||||||
|
|
||||||
my $base_keys = lang_keys(lang_file(BASE_LANG));
|
my $f1 = lang_file(BASE_LANG);
|
||||||
|
my $f2 = lang_file($lang);
|
||||||
|
|
||||||
|
my $base_keys = lang_keys($f1);
|
||||||
my $t1 = write_keys(BASE_LANG, $base_keys);
|
my $t1 = write_keys(BASE_LANG, $base_keys);
|
||||||
|
|
||||||
my $lang_keys = lang_keys(lang_file($lang));
|
my $lang_keys = lang_keys($f2);
|
||||||
my $t2 = write_keys($lang, $lang_keys);
|
my $t2 = write_keys($lang, $lang_keys);
|
||||||
|
|
||||||
unlink(OUTPUT_FILE);
|
|
||||||
|
|
||||||
system("diff -s -y $t1 $t2 > " . OUTPUT_FILE);
|
system("diff -s -y $t1 $t2 > " . OUTPUT_FILE);
|
||||||
|
|
||||||
unlink($t1, $t2);
|
unlink($t1, $t2);
|
||||||
|
|
||||||
|
close($f1, $f2);
|
||||||
|
|||||||
Reference in New Issue
Block a user