[gentoo-commits] gentoo-x86 commit in dev-perl/WWW-Dict-Leo-Org/files: 1.34-umlaut.patch

[gentoo-commits] gentoo-x86 commit in dev-perl/WWW-Dict-Leo-Org/files: 1.34-umlaut.patch

[Justin Lecher (jlec)]

jlec        10/03/30 06:35:44

  Added:                1.34-umlaut.patch
  Log:
  Added Postinst msg, Umlaut patch #311997, Added missing perl-core/DB_File to RDEPEND #311997
  (Portage version: 2.2_rc67/cvs/Linux x86_64)

Revision  Changes    Path
1.1                  dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch

file : http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewcvs.py/gentoo-x86/dev-perl/WWW-Dict-Leo-Org/files/1.34-umlaut.patch?rev=1.1&content-type=text/plain

Index: 1.34-umlaut.patch
===================================================================
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