From d310070721d4730b7d21385d9ca842f6a74f082e Mon Sep 17 00:00:00 2001
From: Sebastien Helleu <flashcode@flashtux.org>
Date: Fri, 12 Dec 2008 23:48:48 +0100
Subject: [PATCH] Fix compilation warnings in Perl plugin on FreeBSD

---
 src/plugins/scripts/perl/weechat-perl-api.c | 7 +++++--
 src/plugins/scripts/perl/weechat-perl.c     | 2 ++
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/plugins/scripts/perl/weechat-perl-api.c b/src/plugins/scripts/perl/weechat-perl-api.c
index e3e6a8123..ab463c05d 100644
--- a/src/plugins/scripts/perl/weechat-perl-api.c
+++ b/src/plugins/scripts/perl/weechat-perl-api.c
@@ -4113,6 +4113,7 @@ static XS (XS_weechat_api_command)
 
 static XS (XS_weechat_api_info_get)
 {
+    char *info_name, *arguments;
     const char *result;
     dXSARGS;
     
@@ -4131,8 +4132,10 @@ static XS (XS_weechat_api_info_get)
         PERL_RETURN_EMPTY;
     }
     
-    result = weechat_info_get (SvPV (ST (0), PL_na),
-                               SvPV (ST (1), PL_na));
+    info_name = SvPV (ST (0), PL_na);
+    arguments = SvPV (ST (1), PL_na);
+    
+    result = weechat_info_get (info_name, arguments);
     
     PERL_RETURN_STRING(result);
 }
diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index f24a77ba3..aefc986d9 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -118,7 +118,9 @@ weechat_perl_exec (struct t_plugin_script *script,
     int *ret_i, mem_err, length;
     SV *ret_s;
     struct t_plugin_script *old_perl_current_script;
+#ifdef MULTIPLICITY
     void *old_context;
+#endif
     
     /* this code is placed here to conform ISO C90 */
     dSP;