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