| 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 |
| |
