From 41f912b4c321ef013ab53d55ac2fefe43023dac1 Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Mon, 7 Jan 2008 21:02:44 +0100 Subject: [PATCH] - Fix funky coloured characters in debugging mode --- videosite/Base.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/videosite/Base.pm b/videosite/Base.pm index 8e96585..cf8bafa 100644 --- a/videosite/Base.pm +++ b/videosite/Base.pm @@ -21,8 +21,11 @@ sub new { sub error { my $self = shift; my @data = @_; + my $t; - Irssi::print(sprintf(shift(@_), @_)); + $t = sprintf(shift(@_), @_); + $t =~ s/%/%%/g; + Irssi::print($t); } sub debug { -- 1.8.3.1