1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 17:55:41 -04:00
This commit is contained in:
Ryan Voots 2010-04-05 14:39:10 -04:00
parent 0ba2b6baec
commit f9947c0c1b

View file

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