From 1347b59332466fd7a58f222d36bffe9c502e8b69 Mon Sep 17 00:00:00 2001
From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Wed, 12 Sep 2007 14:20:13 +0000
Subject: [PATCH] Remove commands that failed to parse

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@23 088b83a4-0077-4247-935c-42ec02c2848b
---
 core.pl | 1 +
 1 file changed, 1 insertion(+)

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" );
 			}
-- 
2.11.0