Quick and durty hack to prevent vendor_perl:: pathes in Gtk2::Ex::PodViewer documents list.

While constructing list of available modules Gtk2::Ex::PodViewer prepend POD's in vendor_perl/ 
with vendor_perl:: prefix. This breaks hypertext POD links in pordbrowser. The simplest way 
is to remove this prefix from Gtk2::Ex::PodViewer documents list.

--- ./podbrowser.pl  2008-02-25 13:22:41 +0300
+++ ./podbrowser.pl  2008-02-25 13:52:50 +0300
@@ -146,6 +146,7 @@
 $viewer->show;
 
 -r $DOC_CACHE ? $viewer->set_db(retrieve($DOC_CACHE)) :  $viewer->_init_db;
+fix_vendor_path();
 
 ### build a SimpleList from the glade widget for the document index:
 my $page_index	= Gtk2::Ex::Simple::List->new_from_treeview(
@@ -1172,6 +1173,7 @@
 	$APP->get_widget('main_window')->set_sensitive(undef);
 	Gtk2->main_iteration while(Gtk2->events_pending);
 	$viewer->reinitialize_db;
+	fix_vendor_path();
 	save_cache();
 	$APP->get_widget('main_window')->set_sensitive(1);
 	set_ui_waiting();
@@ -1287,6 +1289,23 @@
 	return 1;
 }
 
+
+# Dirty hack for 'vendor_perl::' modules
+sub fix_vendor_path {
+    my $db = $viewer->get_db;
+    my ($key,$newkey);
+    foreach my $key (keys(%$db)) {
+        if ($key =~ /^vendor_perl::/) {
+            $newkey = $key;
+            $newkey =~ s/^vendor_perl:://;
+            $db->{$newkey}=$db->{$key};
+            delete($db->{$key});
+        }
+    }
+    $viewer->set_db($db);
+    return;
+}
+
 __END__
 
 =pod