diff -r aa6fda36af91 -r 2e52a3662799 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Wed Aug 20 10:40:11 2003 +0000
+++ b/plugins/perl/perl.c	Wed Aug 20 10:45:12 2003 +0000
@@ -315,6 +315,8 @@
 	ENTER;
 	SAVETMPS;
 	PUSHMARK(SP);
+	XPUSHs(gaim_perl_ref_object(plugin));
+	PUTBACK;
 
 	perl_call_pv(gps->load_sub, G_NOARGS | G_EVAL | G_SCALAR);
 	SPAGAIN;
@@ -348,6 +350,8 @@
 	ENTER;
 	SAVETMPS;
 	PUSHMARK(SP);
+	XPUSHs(gaim_perl_ref_object(plugin));
+	PUTBACK;
 
 	perl_call_pv(gps->unload_sub, G_NOARGS | G_EVAL | G_SCALAR);
 	SPAGAIN;