From 6921a5ef83acd2c1c49c3d7d71a5d9bccfa414bb Mon Sep 17 00:00:00 2001 From: pdbogen Date: Tue, 3 Mar 2009 04:03:17 +0000 Subject: [PATCH] Trim whitespace git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@85 088b83a4-0077-4247-935c-42ec02c2848b --- core.pl | 1 + 1 file changed, 1 insertion(+) 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; -- 2.11.0