Ticket #689: padre.diff-2009-10-16

Index: Padre/lib/Padre/Wx/Dialog/HelpSearch.pm
===================================================================
--- Padre/lib/Padre/Wx/Dialog/HelpSearch.pm (revision 8764)
+++ Padre/lib/Padre/Wx/Dialog/HelpSearch.pm (working copy)
@@ -61,6 +61,7 @@
 #
 sub _display_help_in_viewer {
    my $self = shift;
+   my $special_case = 0;       # for perl control structures that have no docs
 
    my ( $html, $location );
    my $selection = $self->_list->GetSelection();
@@ -73,6 +74,7 @@
                warn "Error while calling help_render: $@\n";
            }
        }
+       $special_case = 1 if $topic =~ /for|foreach|while|until|if|unless/;
    }
 
    if ($html) {
@@ -80,6 +82,8 @@
        # Highlights <pre> code sections with a grey background
        $html =~ s/<pre>/<table border="0" width="100%" bgcolor="#EEEEEE"><tr><td><pre>/ig;
        $html =~ s/<\/pre>/<\/pre\><\/td><\/tr><\/table>/ig;
+   } elsif ($special_case) {
+       $html = '<b>' . Wx::gettext('Please look at perlsyn') . '</b>';
    } else {
        $html = '<b>' . Wx::gettext('No Help found') . '</b>';
    }
@@ -90,6 +94,7 @@
    return;
 }
 
+
 # -- private methods
 
 #
Index: Padre/lib/Padre/HelpProvider/Perl.pm
===================================================================
--- Padre/lib/Padre/HelpProvider/Perl.pm    (revision 8764)
+++ Padre/lib/Padre/HelpProvider/Perl.pm    (working copy)
@@ -122,6 +122,9 @@
    $Type{break} = 1;
    push @index, keys %Type;
 
+   # Add Perl control structures
+   push @index, qw/if unless for foreach while until/;
+
    # Add CORE modules
    # Note the 0 + $] to cast it to number
    push @index, Module::CoreList->find_modules( qr//, 0 + $] );