diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-25 14:31:33 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-25 14:31:33 +0000 |
commit | f40b706eda465195d9f9585e8fa429a31da870c8 (patch) | |
tree | 028e8c73b6005cd901982b431cbabccee8d2905a /bin/login.pl | |
parent | 52635d70697fbe0c165c742cd9e9f5e316ff09a5 (diff) |
Display error instead of dying horribly when locale not found
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@303 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/login.pl')
-rwxr-xr-x | bin/login.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bin/login.pl b/bin/login.pl index a3a70b9b..2ef1c8aa 100755 --- a/bin/login.pl +++ b/bin/login.pl @@ -47,7 +47,8 @@ use LedgerSMB::Locale; $form = new Form; -$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}); +$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}) or + $form->error("Locale not loaded: $!\n"); $locale->encoding('UTF-8'); $form->{charset} = 'UTF-8'; #$form->{charset} = $locale->encoding; |