- Fix funky coloured characters in debugging mode

diff --git a/videosite/Base.pm b/videosite/Base.pm
index 8e96585..cf8bafa 100644 (file)
--- 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 {