[perl-Gtk2] Hush compiler warnings



commit 21685cae605a455b92ca2bfc6ebaa2cf121f47df
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Thu Apr 22 21:59:28 2010 +0200

    Hush compiler warnings

 CodeGen.pm           |    2 +-
 xs/GtkColorButton.xs |    1 +
 xs/GtkFontButton.xs  |    1 +
 3 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/CodeGen.pm b/CodeGen.pm
index fd6f549..1a9293e 100644
--- a/CodeGen.pm
+++ b/CodeGen.pm
@@ -375,7 +375,7 @@ __EOD__
     }
 
     $boot_code .= <<"__EOD__";
-	hv_store (tags_hv, "$options{export_tag}", strlen ("$options{export_tag}"), constants_ref_sv, 0);
+	gperl_hv_take_sv_s (tags_hv, "$options{export_tag}", constants_ref_sv);
 }
 __EOD__
 
diff --git a/xs/GtkColorButton.xs b/xs/GtkColorButton.xs
index 1729285..0bbee05 100644
--- a/xs/GtkColorButton.xs
+++ b/xs/GtkColorButton.xs
@@ -17,6 +17,7 @@ gtk_color_button_new (class, GdkColor*color=NULL)
     ALIAS:
 	new_with_color = 1
     CODE:
+	PERL_UNUSED_VAR (ix);
 	if (items == 2)
 		RETVAL = gtk_color_button_new_with_color (color);
 	else
diff --git a/xs/GtkFontButton.xs b/xs/GtkFontButton.xs
index 24e9785..12d452a 100644
--- a/xs/GtkFontButton.xs
+++ b/xs/GtkFontButton.xs
@@ -17,6 +17,7 @@ gtk_font_button_new (class, const gchar * fontname=NULL)
     ALIAS:
 	new_with_font = 1
     CODE:
+	PERL_UNUSED_VAR (ix);
 	RETVAL = items == 2
 	       ? gtk_font_button_new_with_font (fontname)
 	       : gtk_font_button_new ();



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]