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 (file)
--- 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;