[perl-Glib] Name an internal function appropriately



commit 87e789d66c52907ac5a18dcd6cc7f6e89a24b4a7
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Thu Apr 5 22:58:40 2012 +0200

    Name an internal function appropriately
    
    To avoid a possible collision.

 GSignal.xs |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/GSignal.xs b/GSignal.xs
index a378a49..457fab6 100644
--- a/GSignal.xs
+++ b/GSignal.xs
@@ -54,7 +54,7 @@ this by hand.  watch for fallen cruft.
 */
 
 static GType
-g_signal_flags_get_type (void)
+gperl_signal_flags_get_type (void)
 {
   static GType etype = 0;
   if ( etype == 0 ) {
@@ -76,13 +76,13 @@ g_signal_flags_get_type (void)
 SV *
 newSVGSignalFlags (GSignalFlags flags)
 {
-	return gperl_convert_back_flags (g_signal_flags_get_type (), flags);
+	return gperl_convert_back_flags (gperl_signal_flags_get_type (), flags);
 }
 
 GSignalFlags
 SvGSignalFlags (SV * sv)
 {
-	return gperl_convert_flags (g_signal_flags_get_type (), sv);
+	return gperl_convert_flags (gperl_signal_flags_get_type (), sv);
 }
 
 /* GConnectFlags doesn't come with a GType either.  We don't use it in Glib
@@ -554,7 +554,7 @@ directly.
 =cut
 
 BOOT:
-	gperl_register_fundamental (g_signal_flags_get_type (),
+	gperl_register_fundamental (gperl_signal_flags_get_type (),
 	                            "Glib::SignalFlags");
 	gperl_register_fundamental (gperl_connect_flags_get_type (),
 	                            "Glib::ConnectFlags");



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