# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061376611 0
# Node ID aa86c48d77c727461e45fc0ad963c745dd573ff0
# Parent  e162c765fe21ca50b1c3e6d69b9b812b9f784be6
[gaim-migrate @ 7044]
I'm sad to report that NULL pointers that should have data are also no
longer in style.

committer: Tailor Script <tailor@pidgin.im>

diff -r e162c765fe21 -r aa86c48d77c7 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Wed Aug 20 10:47:41 2003 +0000
+++ b/plugins/perl/perl.c	Wed Aug 20 10:50:11 2003 +0000
@@ -315,11 +315,11 @@
 	dSP;
 	ENTER;
 	SAVETMPS;
-	PUSHMARK(SP);
+	PUSHMARK(sp);
 	XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin")));
 	PUTBACK;
 
-	perl_call_pv(gps->load_sub, G_NOARGS | G_EVAL | G_SCALAR);
+	perl_call_pv(gps->load_sub, G_EVAL | G_SCALAR);
 	SPAGAIN;
 
 	if (SvTRUE(ERRSV)) {
@@ -350,11 +350,11 @@
 	dSP;
 	ENTER;
 	SAVETMPS;
-	PUSHMARK(SP);
+	PUSHMARK(sp);
 	XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin")));
 	PUTBACK;
 
-	perl_call_pv(gps->unload_sub, G_NOARGS | G_EVAL | G_SCALAR);
+	perl_call_pv(gps->unload_sub, G_EVAL | G_SCALAR);
 	SPAGAIN;
 
 	if (SvTRUE(ERRSV)) {