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