/pidgin/main: c220c49cf866: Fix perl warnings

[Tomasz Wasilczyk]

Changeset: c220c49cf866e367f682b1317c45fbca309038b9
Author:	 Tomasz Wasilczyk <twasilczyk at pidgin.im>
Date:	 2014-02-10 15:26 +0100
Branch:	 default
URL: https://hg.pidgin.im/pidgin/main/rev/c220c49cf866

Description:

Fix perl warnings

diffstat:

 libpurple/plugins/perl/common/module.h |  8 +++++++-
 libpurple/plugins/perl/perl-common.h   |  4 ++++
 libpurple/plugins/perl/perl.c          |  3 +++
 3 files changed, 14 insertions(+), 1 deletions(-)

diffs (51 lines):

diff --git a/libpurple/plugins/perl/common/module.h b/libpurple/plugins/perl/common/module.h
--- a/libpurple/plugins/perl/common/module.h
+++ b/libpurple/plugins/perl/common/module.h
@@ -1,6 +1,8 @@
 /* Allow the Perl code to see deprecated functions, so we can continue to
  * export them to Perl plugins. */
-#undef PURPLE_DISABLE_DEPRECATED
+/* Re-enable this after 3.0.0 release.
+ #undef PURPLE_DISABLE_DEPRECATED
+ */
 
 typedef struct group *Purple__Group;
 
@@ -11,6 +13,10 @@ typedef struct group *Purple__Group;
 #undef pipe
 #undef STRINGIFY
 #endif
+
+#define SILENT_NO_TAINT_SUPPORT 0
+#define NO_TAINT_SUPPORT 0
+
 #include <EXTERN.h>
 #include <perl.h>
 #include <XSUB.h>
diff --git a/libpurple/plugins/perl/perl-common.h b/libpurple/plugins/perl/perl-common.h
--- a/libpurple/plugins/perl/perl-common.h
+++ b/libpurple/plugins/perl/perl-common.h
@@ -6,6 +6,10 @@
 #undef STRINGIFY
 #undef pipe
 #endif
+
+#define SILENT_NO_TAINT_SUPPORT 0
+#define NO_TAINT_SUPPORT 0
+
 #include <EXTERN.h>
 #include <perl.h>
 #include <XSUB.h>
diff --git a/libpurple/plugins/perl/perl.c b/libpurple/plugins/perl/perl.c
--- a/libpurple/plugins/perl/perl.c
+++ b/libpurple/plugins/perl/perl.c
@@ -48,6 +48,9 @@
 # define HAS_UNION_SEMUN
 #endif
 
+#define SILENT_NO_TAINT_SUPPORT 0
+#define NO_TAINT_SUPPORT 0
+
 #include <perl.h>
 #include <XSUB.h>