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:42:43 -0000
@@ -128,9 +128,11 @@
 	}
 
 	# 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;
+	# those three lines right here --- strip underscores from the possibly
+	# unicode path, for use with gtk_item_factory_get_widget.
+	$cleanpath = $path;
+	$cleanpath =~ s/_(?!_+)//g;
+	$cleanpath =~ s/_+/_/;
 
 	# the rest of the work happens in XS
 	$factory->_create_item ($path, $accelerator || '',