Now installing lang/ properly, and config+language files are pulled from the current working directory.

This commit is contained in:
Elijah Perrault committed 2011-03-11 21:39:50 -07:00
1 parent 6033904d0d
commit 580770c5b8
4 files changed
+9 -8

No files matched your search

+3 -3
View File
@@ -13,15 +13,15 @@ sub parse
my ($lang) = @_;
# Check that the language file exists.
unless (-e "$Auto::Bin/../lang/$lang.alf") {
if (!-e "$Auto::bin{lng}/$lang.alf") {
# Otherwise, use English.
dbug "Language '$lang' not found. Using English.";
alog "Language '$lang' not found. Using English.";
$lang = "en";
$lang = 'en';
}
# Open, read and close the file.
open(my $FALF, q{<}, "$Auto::Bin/../lang/$lang.alf") or return 0;
open(my $FALF, '<', "$Auto::bin{lng}/$lang.alf") or return 0;
my @fbuf = <$FALF>;
close $FALF;