From 3261058ce076b62cad4f66e18abc2579eabeb1cf Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 23 Feb 2001 12:26:15 +0000
Subject: [PATCH] strip trailing whitespaces, force use of quotes to enable
 trailing 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
---
 src/CommandStubs.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 26e3b3e..d4e2244 100644
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -257,6 +257,12 @@ sub Modules {
 
 	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");
-- 
2.39.2