From 041f74bc24f3d620ec5411ce2baab81664396fbd Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Mon, 5 Apr 2010 14:34:17 -0400
Subject: [PATCH] whoops

---
 plugins/perldoc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/perldoc.pm b/plugins/perldoc.pm
index 1cf2cac..53c0ef1 100644
--- a/plugins/perldoc.pm
+++ b/plugins/perldoc.pm
@@ -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;