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

wtf

Browse source
This commit is contained in:
Ryan Voots 2010-04-05 14:39:10 -04:00
parent 0ba2b6baec
commit f9947c0c1b
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
plugins/perldoc.pm
View file

@ -19,6 +19,7 @@ sub {
{ {
#http://perldoc.perl.org/functions/abs.html #http://perldoc.perl.org/functions/abs.html
my $func = $1; my $func = $1;
print "orig func: $func\n";
$func =~ s/^\s*(.*)\s*$/$1/; #trim whitespace $func =~ s/^\s*(.*)\s*$/$1/; #trim whitespace
$func = lc($func); #all functions are lowercase, except the exception below $func = lc($func); #all functions are lowercase, except the exception below