From 9559a8ead9048433783a453ca47c63514a39b205 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Tue, 12 Jul 2016 12:42:15 +0200
Subject: [PATCH] Allow Irssi::signal_remove to work properly with coderefs

---
 src/perl/perl-signals.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/perl/perl-signals.c b/src/perl/perl-signals.c
index 007f7ad5..8f993660 100644
--- a/src/perl/perl-signals.c
+++ b/src/perl/perl-signals.c
@@ -433,8 +433,9 @@ static void perl_signal_remove_list_one(GSList **siglist, PERL_SIGNAL_REC *rec)
 }
 
 #define sv_func_cmp(f1, f2) \
-	(f1 == f2 || (SvPOK(f1) && SvPOK(f2) && \
-		g_strcmp0(SvPV_nolen(f1), SvPV_nolen(f2)) == 0))
+	((SvROK(f1) && SvROK(f2) && SvRV(f1) == SvRV(f2)) || \
+	 (SvPOK(f1) && SvPOK(f2) && \
+	  g_strcmp0(SvPV_nolen(f1), SvPV_nolen(f2)) == 0))
 
 static void perl_signal_remove_list(GSList **list, SV *func)
 {