Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:45:40 -04:00
Code Issues Releases Wiki Activity

whoops

Browse source
This commit is contained in:
Ryan Voots 2010-04-05 14:34:17 -04:00
parent 763405ad26
commit 041f74bc24
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/perldoc.pm
View file

@ -9,7 +9,7 @@ sub {
if ($said->{body} =~ /-q\s+(.*)/i) #faq questions
{#http://perldoc.perl.org/search.html?q=foo+bar
my $trimmed = $said->{body};
my $trimmed = $1;
$trimmed =~ s/^\s*(\S+)\s*$/$1/;
my $query = uri_encode($trimmed);
$query =~ s/%20/+/g;