… | |
… | |
556 | $| = 1; |
556 | $| = 1; |
557 | |
557 | |
558 | print <<EOF; |
558 | print <<EOF; |
559 | Entering interactive shell - no commandline editing of course (use rlfe etc.). |
559 | Entering interactive shell - no commandline editing of course (use rlfe etc.). |
560 | |
560 | |
561 | = display a list of nodes |
561 | \= display a list of nodes |
562 | =name switch to another node |
562 | \=name switch to another node |
563 | |
563 | |
564 | EOF |
564 | EOF |
565 | print "$node> "; |
565 | print "$node> "; |
566 | my $cv = AE::cv; |
566 | my $cv = AE::cv; |
567 | my $t = AE::io *STDIN, 0, sub { |
567 | my $t = AE::io *STDIN, 0, sub { |