From ebaedd7b518840232b00d93f8b309a37f352233b Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Mon, 5 Apr 2010 14:29:09 -0400
Subject: [PATCH] modified encoding for -q

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

diff --git a/plugins/perldoc.pm b/plugins/perldoc.pm
index e08dc49..d67bce1 100644
--- a/plugins/perldoc.pm
+++ b/plugins/perldoc.pm
@@ -9,6 +9,8 @@ sub {
     
 	if ($said->{body} =~ /-q\s+(.*)/i) #faq questions
 	{#http://perldoc.perl.org/search.html?q=foo+bar
+	 my $query = uri_encode($1);
+	 $query =~ s/%20/+/g;
 	 $url = "http://perldoc.perl.org/search.html?q=".uri_encode($1);
 	}
 	elsif ($said->{body} =~ /-f\s+(.*?)\s*/i) #functions, only use the first part of a multiword expression