e-smith-lib/sme7/e-smith-lib-1.18.0-i18n.patch

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
--- e-smith-lib-1.18.0/root/usr/lib/perl5/site_perl/esmith/I18N.pm      2008-04-02 14:09:35.000000000 -0600
+++ 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
@@ -105,7 +105,7 @@
 
 sub fallbackLocale()
 {
-    return "en_US";
+    return "en_US.utf8";
 }
 
 =head2 preferredLocale()
@@ -154,8 +154,9 @@
     my $locale;
 
     $locale = $self->langtag2locale($opt) if ($opt);
-
     $locale ||= $self->preferredLocale;
+    $locale =~ s{(?:\..*)?$}{.utf8};
+    $locale =~ s{.utf8$}{} if $text_domain eq 'server-console';
 
     $ENV{'LANGUAGE'} = $locale;
     $ENV{'LANG'}     = $ENV{'LANGUAGE'};
@@ -207,11 +208,19 @@
 
        unless (-d "/usr/lib/locale/$locale")
        {
+           $locale = "da_DK" if ($opt =~ /^da(-.*)?/);
+           $locale = "de_DE" if ($opt =~ /^de(-.*)?/);
+           $locale = "el_GR" if ($opt =~ /^el(-.*)?/);
            $locale = "en_US" if ($opt =~ /^en(-.*)?/);
            $locale = "es_ES" if ($opt =~ /^es(-.*)?/);
            $locale = "fr_CA" if ($opt =~ /^fr(-.*)?/);
-           $locale = "de_DE" if ($opt =~ /^de(-.*)?/);
+           $locale = "hu_HU" if ($opt =~ /^hu(-.*)?/);
+           $locale = "id_ID" if ($opt =~ /^id(-.*)?/);
            $locale = "it_IT" if ($opt =~ /^it(-.*)?/);
+           $locale = "nl_NL" if ($opt =~ /^nl(-.*)?/);
+           $locale = "pt_BR" if ($opt =~ /^pt(-.*)?/);
+           $locale = "sl_SL" if ($opt =~ /^sl(-.*)?/);
+           $locale = "sv_SE" if ($opt =~ /^sv(-.*)?/);
        }
     }
     else 
1	slords	1.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