diff options
Diffstat (limited to 'dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch')
| -rw-r--r-- | dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch b/dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch new file mode 100644 index 000000000000..accce925e039 --- /dev/null +++ b/dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch @@ -0,0 +1,41 @@ +From d70ba71c7a0173991cddf9a43b4855864294c203 Mon Sep 17 00:00:00 2001 +From: Slaven Rezic <slaven@rezic.de> +Date: Fri, 12 Feb 2010 21:47:01 +0100 +Subject: [PATCH] added support for non-iso8859-1 terminals, see + https://rt.cpan.org/Public/Bug/Display.html?id=35543 + +--- + leo | 10 ++++++++++ + 1 files changed, 10 insertions(+), 0 deletions(-) + +diff --git a/leo b/leo +index f734249..e65c1b1 100755 +--- a/leo ++++ b/leo +@@ -58,6 +58,8 @@ sub debug; + + my($o_s, $o_m, $o_c, $o_l, $o_v, $o_h, $o_n, $o_f, $o_d, $o_u, $o_p); + ++isatty(1) && eval q{ use open OUT => ':locale'}; ++ + # + # commandline options + # +@@ -95,6 +97,14 @@ if (!$string) { + $string = <STDIN>; + chomp $string; + } ++if (eval { require I18N::Langinfo; require Encode; 1 }) { ++ my $codeset = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET()); ++ if ($codeset) { ++ for ($string) { ++ $_ = Encode::decode($codeset, $_); ++ } ++ } ++} + + # + # open the config, if any +-- +1.6.4.3 + |