From bae9c1db7a2a2fb2169d147a3632d0f46454f09f Mon Sep 17 00:00:00 2001
From: Emanuele Giaquinta <exg@irssi.org>
Date: Wed, 17 Dec 2008 18:56:56 +0000
Subject: [PATCH] Fix r4961 change, irssi-core.pl is transformed in a format
 string so literals % must be escaped. Patch by Lukas Mai.

git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4969 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/irssi-core.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/irssi-core.pl b/src/perl/irssi-core.pl
index 8821e45b..38265a80 100644
--- a/src/perl/irssi-core.pl
+++ b/src/perl/irssi-core.pl
@@ -10,7 +10,7 @@ use Symbol;
 
 $SIG{__WARN__} = sub {
   my @msg = @_;
-  s/%/%%/g for @msg;
+  s/%%/%%%%/g for @msg;
   print @msg;
 };