Mercurial > pidgin3 / file diff

--- a/libpurple/plugins/perl/perl-common.h	Thu Oct 03 06:47:52 2013 +0530
+++ b/libpurple/plugins/perl/perl-common.h	Sun Oct 06 18:15:19 2013 +0530
@@ -34,6 +34,12 @@
 #define PURPLE_PERL_BOOT(x) \
 	purple_perl_callXS(boot_Purple__##x, cv, mark)
 
+#ifdef HAVE_NEW_SVUPGRADE
+#	define SvUPGRADE_common(a, b) SvUPGRADE(a, b)
+#else
+#	define SvUPGRADE_common(a, b) if (!SvUPGRADE(a, b)) { croak("Cannot upgrade variable"); }
+#endif
+
 typedef struct _PurplePerlInfoStrings PurplePerlInfoStrings;
 
 typedef struct