diff options
| -rwxr-xr-x | LedgerSMB/User.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index 19583b57..86a1779b 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -82,7 +82,7 @@ sub country_codes { # scan the locale directory and read in the LANGUAGE files opendir DIR, "${LedgerSMB::Sysconfig::localepath}"; - my @dir = grep !/^\.\.?$/, readdir DIR; + my @dir = grep !/^\..*$/, readdir DIR; foreach my $dir (@dir) { $dir = substr($dir, 0, -3); |