0db3e0ed81
It's too buggy; in some edge cases it results in an infinite input loop with 100% cpu. If you want to restart, use 'restart' instead of eof'ing the input with ^D.
15 lines
356 B
Perl
15 lines
356 B
Perl
#!perl
|
|
|
|
|
|
HELP "restart" => "Attempt to restart the RevBank shell";
|
|
|
|
sub command :Tab(restart) ($self, $cart, $command, @) {
|
|
return NEXT if $command ne 'restart';
|
|
|
|
call_hooks("restart_exec");
|
|
no warnings qw(exec);
|
|
exec $0;
|
|
call_hooks("restart_survived");
|
|
|
|
return ABORT, "exec() failed. You'll have to restart revbank yourself :P";
|
|
}
|