whitespace. requested by asuffield and \broken?.
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@416
c11ca15a-4712-0410-83d8-
924469b57eb5
my $thiscmd = lc($1);
my $args = $3;
my $thiscmd = lc($1);
my $args = $3;
+ $args =~ s/\s+$//g;
+ # suggested by asuffield nad \broken.
+ if ($args =~ /^["']/ and $args =~ /["']$/) {
+ &DEBUG("list*: removed quotes.");
+ $args =~ s/^["']|["']$//g;
+ }
$thiscmd =~ s/^vals$/values/;
return if ($thiscmd ne "keys" && $thiscmd ne "values");
$thiscmd =~ s/^vals$/values/;
return if ($thiscmd ne "keys" && $thiscmd ne "values");