[perl-Glib] Hush compiler warnings

[Torsten Schönfeld <tsch src gnome org>]

commit 1ec713c2661eb0bc26a37123a9bcc4c454078358
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun May 16 01:25:15 2010 +0200

    Hush compiler warnings

 GBoxed.xs  |    4 ++++
 GError.xs  |    2 +-
 GOption.xs |    8 ++++++++
 3 files changed, 13 insertions(+), 1 deletions(-)
---
diff --git a/GBoxed.xs b/GBoxed.xs
index 2e6d90b..a192b9a 100644
--- a/GBoxed.xs
+++ b/GBoxed.xs
@@ -579,6 +579,8 @@ strv_wrap (GType        gtype,
 	AV * av;
 	int i;
 	gchar ** strv;
+	PERL_UNUSED_VAR (gtype);
+	PERL_UNUSED_VAR (package);
 
 	if (!boxed)
 		return &PL_sv_undef;
@@ -602,6 +604,8 @@ strv_unwrap (GType        gtype,
 	     SV         * sv)
 {
 	gchar ** strv = NULL;
+	PERL_UNUSED_VAR (gtype);
+	PERL_UNUSED_VAR (package);
 
 	/* pass undef */
 	if (!gperl_sv_is_defined (sv))
diff --git a/GError.xs b/GError.xs
index c7e6f8e..8653907 100644
--- a/GError.xs
+++ b/GError.xs
@@ -187,7 +187,7 @@ gperl_sv_from_gerror (GError * error)
 	 * what knows how to find the code location.  don't want to do that
 	 * ourselves, since that's blacker magic, so we'll call this and 
 	 * hope the perl API doesn't change.  */
-	gperl_hv_take_sv_s (hv, "location", newSVsv (mess ("")));
+	gperl_hv_take_sv_s (hv, "location", newSVsv (mess ("%s", "")));
 
 	package = info ? info->package : "Glib::Error";
 
diff --git a/GOption.xs b/GOption.xs
index 3a5427d..1eb9dd8 100644
--- a/GOption.xs
+++ b/GOption.xs
@@ -458,6 +458,7 @@ initialize_scalar (gpointer key,
 {
 	SV *ref = key;
 	GPerlArgInfo *info = value;
+	PERL_UNUSED_VAR (data);
 
 	switch (info->arg) {
 	    case G_OPTION_ARG_NONE:
@@ -508,6 +509,9 @@ initialize_scalars (GOptionContext *context,
 		    GError **error)
 {
 	GPerlArgInfoTable *table = data;
+	PERL_UNUSED_VAR (context);
+	PERL_UNUSED_VAR (group);
+	PERL_UNUSED_VAR (error);
 	g_hash_table_foreach (table->scalar_to_info, initialize_scalar, NULL);
 	return TRUE;
 }
@@ -559,6 +563,7 @@ fill_in_scalar (gpointer key,
 	SV *ref = key;
 	GPerlArgInfo *info = value;
 	SV *sv = SvRV (ref);
+	PERL_UNUSED_VAR (data);
 
 	switch (info->arg) {
 	    case G_OPTION_ARG_NONE:
@@ -610,6 +615,9 @@ fill_in_scalars (GOptionContext *context,
 		 GError **error)
 {
 	GPerlArgInfoTable *table = data;
+	PERL_UNUSED_VAR (context);
+	PERL_UNUSED_VAR (group);
+	PERL_UNUSED_VAR (error);
 	g_hash_table_foreach (table->scalar_to_info, fill_in_scalar, NULL);
 	return TRUE;
 }