From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Tue, 3 Mar 2009 04:03:17 +0000 (+0000)
Subject: Trim whitespace
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=6921a5ef83acd2c1c49c3d7d71a5d9bccfa414bb;p=destult.git

Trim whitespace

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@85 088b83a4-0077-4247-935c-42ec02c2848b
---

diff --git a/core.pl b/core.pl
index 9fb45c4..2802e9b 100644
--- a/core.pl
+++ b/core.pl
@@ -132,6 +132,7 @@ sub cmd {
 	$what =~ s/^[~]//;
 	my( $cmd, $subj ) = ( split( / /, $what, 2 ) );
 	$subj = "" unless $subj;
+	$subj =~ s/(^\s+)|(\s+$)//g;
 	if( exists( $heap->{ 'ignored' }->{ uc( $who ) } ) ) {
 		print( "CORE:!<$who> $cmd -- $subj\n" ) unless( !exists $Destult::config{ 'DEBUG' } );
 		return;