diff options
| -rw-r--r-- | src/perl/perl-signals.c | 2 |
1 files changed, 1 insertions, 1 deletions
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)); } |