[perl-Glib] Name an internal function appropriately
- From: Torsten SchÃnfeld <tsch src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [perl-Glib] Name an internal function appropriately
- Date: Thu, 5 Apr 2012 20:59:57 +0000 (UTC)
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]