[perl-Gtk2] Hush compiler warnings

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

commit 2e325ec68dcbd595cdbdc16f596fa1e07a485db8
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Tue Dec 28 00:06:36 2010 +0100

    Hush compiler warnings

 xs/GtkBindings.xs  |    1 +
 xs/GtkEntry.xs     |    6 ++++++
 xs/GtkSelection.xs |    1 +
 3 files changed, 8 insertions(+), 0 deletions(-)
---
diff --git a/xs/GtkBindings.xs b/xs/GtkBindings.xs
index 5ef0616..4dcdb4c 100644
--- a/xs/GtkBindings.xs
+++ b/xs/GtkBindings.xs
@@ -40,6 +40,7 @@ gtk2perl_binding_set_copy (GtkBindingSet *binding_set)
 static void
 gtk2perl_binding_set_free (GtkBindingSet *binding_set)
 {
+	PERL_UNUSED_VAR (binding_set);
 	/* no freeing */
 }
 GType
diff --git a/xs/GtkEntry.xs b/xs/GtkEntry.xs
index ee2a322..d2b3355 100644
--- a/xs/GtkEntry.xs
+++ b/xs/GtkEntry.xs
@@ -29,6 +29,9 @@ gtk2perl_border_wrap (GType gtype, const char * package, gpointer boxed, gboolea
 	GtkBorder *border = boxed;
 	HV *hv;
 
+	PERL_UNUSED_VAR (gtype);
+	PERL_UNUSED_VAR (package);
+
 	if (!border)
 		return &PL_sv_undef;
 
@@ -54,6 +57,9 @@ gtk2perl_border_unwrap (GType gtype, const char * package, SV * sv)
 	SV **value;
 	GtkBorder *border;
 
+	PERL_UNUSED_VAR (gtype);
+	PERL_UNUSED_VAR (package);
+
 	if (!gperl_sv_is_defined (sv) || !SvRV (sv))
 		return NULL;
 
diff --git a/xs/GtkSelection.xs b/xs/GtkSelection.xs
index 81f8f38..61a7f03 100644
--- a/xs/GtkSelection.xs
+++ b/xs/GtkSelection.xs
@@ -111,6 +111,7 @@ gtk_target_list_wrap (GType gtype,
 {
 	/* To keep compatibility with the old wrappers, we always assume
 	 * ownership of the list. */
+	PERL_UNUSED_VAR (own);
 	gtk_target_list_ref ((GtkTargetList *) boxed);
 	return default_wrapper_class->wrap (gtype, package, boxed, TRUE);
 }