# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061376461 0
# Node ID e162c765fe21ca50b1c3e6d69b9b812b9f784be6
# Parent  66689e2cb966e71ed87a6ed9c598a92d998154ba
[gaim-migrate @ 7043]
And do it correctly, because crashing isn't in style anymore.

committer: Tailor Script <tailor@pidgin.im>

diff -r 66689e2cb966 -r e162c765fe21 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Wed Aug 20 10:45:12 2003 +0000
+++ b/plugins/perl/perl.c	Wed Aug 20 10:47:41 2003 +0000
@@ -80,6 +80,7 @@
 #include "debug.h"
 #include "plugin.h"
 
+#include "perl-common.h"
 #include "perl-handlers.h"
 
 #define PERL_PLUGIN_ID "core-perl"
@@ -315,7 +316,7 @@
 	ENTER;
 	SAVETMPS;
 	PUSHMARK(SP);
-	XPUSHs(gaim_perl_ref_object(plugin));
+	XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin")));
 	PUTBACK;
 
 	perl_call_pv(gps->load_sub, G_NOARGS | G_EVAL | G_SCALAR);
@@ -350,7 +351,7 @@
 	ENTER;
 	SAVETMPS;
 	PUSHMARK(SP);
-	XPUSHs(gaim_perl_ref_object(plugin));
+	XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin")));
 	PUTBACK;
 
 	perl_call_pv(gps->unload_sub, G_NOARGS | G_EVAL | G_SCALAR);