--- deliantra/Deliantra-Client/bin/cfplus	2006/05/25 22:37:30	1.8
+++ deliantra/Deliantra-Client/bin/cfplus	2006/05/25 23:41:45	1.9
@@ -1259,7 +1259,7 @@
    my $parser = new Pod::POM;
    my $pod = $parser->parse_file (CFClient::find_rcfile "pod/command_help.pod");
 
-   for my $head2 ($pod->head2) {
+   for my $head2 ($pod->head1->[-2]->head2) {
       $head2->title =~ /^(\S+) (?:\s+ \( ([^\)]*) \) )?/x
          or next;
 
@@ -1689,7 +1689,7 @@
 
    my %skill_tooltip;
 
-   for my $head2 ($pod->head2) {
+   for my $head2 ($pod->head1->[-2]->head2) {
       $skill_tooltip{$head2->title} = CFClient::pod_to_pango $head2->content;
    }