From af86920d3fea8e5bc84954c5894698e4c6002366 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 29 Jul 2001 04:03:58 +0000
Subject: bugfix

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1676 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/perl-signals.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/perl/perl-signals.c b/src/perl/perl-signals.c
index d0948ad9..2951d67c 100644
--- a/src/perl/perl-signals.c
+++ b/src/perl/perl-signals.c
@@ -124,7 +124,7 @@ static void perl_call_signal(const char *func, int signal_id,
 			perlarg = irssi_bless((SERVER_REC *) arg);
 		} else {
 			/* blessed object */
-			perlarg = plain_bless(rec->args[n], arg);
+			perlarg = plain_bless(arg, rec->args[n]);
 		}
 		XPUSHs(sv_2mortal(perlarg));
 	}
-- 
cgit v1.2.3