[perl-Gtk2] Use a more unique data key for Gtk2::Menu position callbacks

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

commit ef31d6163d54e8cd1a2de6b1ed55d781494c3378
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Tue Aug 16 21:58:13 2011 +0200

    Use a more unique data key for Gtk2::Menu position callbacks
    
    In order to make it even more unlikely for collisions to occur, use a data key
    prefixed with "gtk2perl".
    
    https://bugzilla.gnome.org/show_bug.cgi?id=613363

 xs/GtkMenu.xs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/xs/GtkMenu.xs b/xs/GtkMenu.xs
index ee6d20d..425704c 100644
--- a/xs/GtkMenu.xs
+++ b/xs/GtkMenu.xs
@@ -156,7 +156,7 @@ gtk_menu_popup (menu, parent_menu_shell, parent_menu_item, menu_pos_func, data,
 	if (!gperl_sv_is_defined (menu_pos_func)) {
 		gtk_menu_popup (menu, parent_menu_shell, parent_menu_item,
 		                NULL, NULL, button, activate_time);
-		g_object_set_data (G_OBJECT(menu), "_menu_pos_callback", NULL);
+		g_object_set_data (G_OBJECT(menu), "_gtk2perl_menu_pos_callback", NULL);
 	} else {
 		GPerlCallback * callback;
 		/* we don't need to worry about the callback arg types since
@@ -173,7 +173,7 @@ gtk_menu_popup (menu, parent_menu_shell, parent_menu_item, menu_pos_func, data,
 		 * if we use object data, we can clean up the ones we install
 		 * and reinstall.  Not likely, of course, but there are
 		 * pathological programmers out there. */
-		g_object_set_data_full (G_OBJECT (menu), "_menu_pos_callback",
+		g_object_set_data_full (G_OBJECT (menu), "_gtk2perl_menu_pos_callback",
 		                        callback,
 		                        (GDestroyNotify)
 		                             gperl_callback_destroy);