Index: Gtk2.pm
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Gtk2/Gtk2.pm,v
retrieving revision 1.44
diff -u -d -r1.44 Gtk2.pm
--- Gtk2.pm	14 Nov 2003 04:43:18 -0000	1.44
+++ Gtk2.pm	20 Nov 2003 19:45:47 -0000
@@ -130,7 +130,7 @@
 	# we have this funky perl wrapper for the XS function entirely for
 	# this line right here --- strip underscores from the possibly unicode
 	# path, for use with gtk_item_factory_get_widget.
-	($cleanpath = $path) =~ s/_//g;
+	($cleanpath = $path) =~ s/_(_?)_*/$1/g;
 
 	# the rest of the work happens in XS
 	$factory->_create_item ($path, $accelerator || '',