Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 04:35:41 -04:00
Code Issues Releases Wiki Activity

bug in -f

Browse source
This commit is contained in:
Ryan Voots 2010-04-05 14:37:20 -04:00
parent 041f74bc24
commit 0ba2b6baec
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

@ -24,7 +24,7 @@ sub {
$func = "-X" if ($func eq "-x"); #only case where it isn't lowercase, its easier to test at this point $func = "-X" if ($func eq "-x"); #only case where it isn't lowercase, its easier to test at this point
$url = "http://perldoc.perl.org/functions/".$1.".html" $url = "http://perldoc.perl.org/functions/".$func.".html"
} }
elsif ($said->{body} =~ /-m\s+(.*)\s*$/i) # got a module! elsif ($said->{body} =~ /-m\s+(.*)\s*$/i) # got a module!
{#http://search.cpan.org/search?query=foo%3ABar&mode=all {#http://search.cpan.org/search?query=foo%3ABar&mode=all