From f4a98d982e2607a8d96672e04da3367fd0f61c14 Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Mon, 5 Apr 2010 14:40:26 -0400 Subject: [PATCH] foo bar --- plugins/perldoc.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/perldoc.pm b/plugins/perldoc.pm index ab527a7..f7e2c01 100644 --- a/plugins/perldoc.pm +++ b/plugins/perldoc.pm @@ -15,7 +15,7 @@ sub { $query =~ s/%20/+/g; $url = "http://perldoc.perl.org/search.html?q=".$query; } - elsif ($said->{body} =~ /-f\s+(.*?)\s*/i) #functions, only use the first part of a multiword expression + elsif ($said->{body} =~ /-f\s+(.*)/i) #functions, only use the first part of a multiword expression { #http://perldoc.perl.org/functions/abs.html my $func = $1;