Mercurial > pidgin
changeset 6526:e162c765fe21
[gaim-migrate @ 7043]
And do it correctly, because crashing isn't in style anymore.
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Wed, 20 Aug 2003 10:47:41 +0000 |
| parents | 66689e2cb966 |
| children | aa86c48d77c7 |
| files | plugins/perl/perl.c |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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);