Package: irssi-scripts
Version: 20060513
Followup-For: Bug #367335
Restarting my irssi for the first time since this upgrade, I can confirm
this problem. The issue is that the latest trackbar detects UTF-8 terminal
settings correctly, then does something very incorrect that results in the
unicode character "─" being butchered into "â".
The attached patch seems to fix the problem for me on sid, but I haven't
tested it at all with perl 5.6 so have no idea how it behaves there. The
'use utf8' pragma should actually be entirely unnecessary with perl 5.8,
but I'm not sure if it's needed on perl 5.6 so included it for that reason.
-- System Information:
Debian Release: testing/unstable
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.14-1-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Versions of packages irssi-scripts depends on:
ii irssi 0.8.10-2 terminal based IRC client
Versions of packages irssi-scripts recommends:
ii libwww-perl 5.805-1 WWW client/server library for Perl
-- no debconf information
--- /usr/share/irssi/scripts/trackbar.pl.orig 2006-05-13 02:12:11.000000000
-0700
+++ /usr/share/irssi/scripts/trackbar.pl 2006-07-20 01:10:12.000000000
-0700
@@ -66,6 +66,7 @@
use 5.6.1;
use Irssi;
use Irssi::TextUI;
+use utf8;
our $VERSION = "1.3";
@@ -136,9 +137,7 @@
# representation of strings uses the UTF-8 encoding."
# Maybe Irssi::settings_get_str() should return stuff in that "internal
# UTF-8 representation"?
- if ($config{'term_utf8'}) {
- $string = pack 'U*', unpack 'U*', $string;
- }
+ utf8::upgrade($string);
my $length = length $string;
if ($length == 0) {
