| 1 |
diff -Nur -x '*.orig' -x '*.rej' e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm |
| 2 |
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm 2008-04-02 14:09:35.000000000 -0600 |
| 3 |
+++ mezzanine_patched_e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm 2008-04-02 14:09:16.000000000 -0600 |
| 4 |
@@ -105,7 +105,7 @@ |
| 5 |
|
| 6 |
sub fallbackLocale() |
| 7 |
{ |
| 8 |
- return "en_US"; |
| 9 |
+ return "en_US.utf8"; |
| 10 |
} |
| 11 |
|
| 12 |
=head2 preferredLocale() |
| 13 |
@@ -154,8 +154,9 @@ |
| 14 |
my $locale; |
| 15 |
|
| 16 |
$locale = $self->langtag2locale($opt) if ($opt); |
| 17 |
- |
| 18 |
$locale ||= $self->preferredLocale; |
| 19 |
+ $locale =~ s{(?:\..*)?$}{.utf8}; |
| 20 |
+ $locale =~ s{.utf8$}{} if $text_domain eq 'server-console'; |
| 21 |
|
| 22 |
$ENV{'LANGUAGE'} = $locale; |
| 23 |
$ENV{'LANG'} = $ENV{'LANGUAGE'}; |
| 24 |
@@ -207,11 +208,19 @@ |
| 25 |
|
| 26 |
unless (-d "/usr/lib/locale/$locale") |
| 27 |
{ |
| 28 |
+ $locale = "da_DK" if ($opt =~ /^da(-.*)?/); |
| 29 |
+ $locale = "de_DE" if ($opt =~ /^de(-.*)?/); |
| 30 |
+ $locale = "el_GR" if ($opt =~ /^el(-.*)?/); |
| 31 |
$locale = "en_US" if ($opt =~ /^en(-.*)?/); |
| 32 |
$locale = "es_ES" if ($opt =~ /^es(-.*)?/); |
| 33 |
$locale = "fr_CA" if ($opt =~ /^fr(-.*)?/); |
| 34 |
- $locale = "de_DE" if ($opt =~ /^de(-.*)?/); |
| 35 |
+ $locale = "hu_HU" if ($opt =~ /^hu(-.*)?/); |
| 36 |
+ $locale = "id_ID" if ($opt =~ /^id(-.*)?/); |
| 37 |
$locale = "it_IT" if ($opt =~ /^it(-.*)?/); |
| 38 |
+ $locale = "nl_NL" if ($opt =~ /^nl(-.*)?/); |
| 39 |
+ $locale = "pt_BR" if ($opt =~ /^pt(-.*)?/); |
| 40 |
+ $locale = "sl_SL" if ($opt =~ /^sl(-.*)?/); |
| 41 |
+ $locale = "sv_SE" if ($opt =~ /^sv(-.*)?/); |
| 42 |
} |
| 43 |
} |
| 44 |
else |
Parent Directory
| 
Revision Log
| 
Revision Graph
