perl-Glib r1039 - trunk

[tsch svn gnome org]

Author: tsch
Date: Sun Nov  2 11:39:28 2008
New Revision: 1039
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1039&view=rev

Log:
Use gperl_register_fundamental_alias to register the "Glib::Uint"
backwards-compatibility alias.


Modified:
   trunk/ChangeLog
   trunk/GType.xs

Modified: trunk/GType.xs
==============================================================================
--- trunk/GType.xs	(original)
+++ trunk/GType.xs	Sun Nov  2 11:39:28 2008
@@ -1983,10 +1983,7 @@
 	 * same gtype, we get the mappings for two packages to one gtype, but
 	 * only one mapping (the last and correct one) from type to package.
 	 */
-	G_LOCK (types_by_package);
-	g_hash_table_insert (types_by_package, "Glib::Uint",
-			     (gpointer) G_TYPE_UINT);
-	G_UNLOCK (types_by_package);
+	gperl_register_fundamental_alias (G_TYPE_UINT, "Glib::Uint");
 
 
 =for apidoc