From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Wed, 12 Sep 2007 14:20:13 +0000 (+0000)
Subject: Remove commands that failed to parse
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=1347b59332466fd7a58f222d36bffe9c502e8b69;p=destult.git

Remove commands that failed to parse

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

diff --git a/core.pl b/core.pl
index 292548d..904de3f 100644
--- a/core.pl
+++ b/core.pl
@@ -53,6 +53,7 @@ sub on_start {
 			$heap->{ 'commands' }->{ $key } = eval( $source{ $key } );
 			if( $@ ) {
 				print( "FAILED: $@\n\n" );
+				delete $heap->{ 'commands' }->{ $key };
 			} else {
 				print( "Done.\n" );
 			}