| … | |
… | |
| 663 | |
663 | |
| 664 | trace shift @ARGV; |
664 | trace shift @ARGV; |
| 665 | }, |
665 | }, |
| 666 | restart => sub { |
666 | restart => sub { |
| 667 | my $node = node_of shift @ARGV; |
667 | my $node = node_of shift @ARGV; |
| 668 | node_eval $node, 'my $w; $w = AE::idle sub { undef $w; AnyEvent::Watchdog::Util::restart }; ()'; |
668 | node_eval $node, 'my $w; $w = AE::idle sub { ' |
|
|
669 | . 'undef $w; ' |
|
|
670 | . 'use AnyEvent::Watchdog::Util ();' |
|
|
671 | . 'AnyEvent::Watchdog::Util::restart' |
|
|
672 | . '}; ()'; |
| 669 | }, |
673 | }, |
| 670 | |
674 | |
| 671 | setnodeid => sub { |
675 | setnodeid => sub { |
| 672 | @ARGV >= 1 |
676 | @ARGV >= 1 |
| 673 | or die "shared secret missing\n"; |
677 | or die "shared secret missing\n"; |
