Catch an action that invokes itself

This commit is contained in:
Tom Eastep 2010-12-21 13:20:44 -08:00
parent ac42fddbce
commit ffbcd1b1fe

View File

@ -293,8 +293,6 @@ sub process_actions1() {
next; next;
} }
$targets{$action} = ACTION;
fatal_error "Invalid Action Name ($action)" unless "\L$action" =~ /^[a-z]\w*$/; fatal_error "Invalid Action Name ($action)" unless "\L$action" =~ /^[a-z]\w*$/;
new_action $action; new_action $action;
@ -335,6 +333,8 @@ sub process_actions1() {
} }
pop_open; pop_open;
$targets{$action} = ACTION;
} }
} }
} }