| … | … | ||
|---|---|---|---|
| 44 | or die "unable to bind cmdshell port: $!"; | 44 | or die "unable to bind cmdshell port: $!"; |
| 45 | 45 | ||
| 46 | push @listen_sockets, $port; | 46 | push @listen_sockets, $port; |
| 47 | 47 | ||
| 48 | async { | 48 | async { |
| 49 | async \&shell, $port->accept; | 49 | async \&shell, $port->accept |
| 50 | while 1; | ||
| 50 | }; | 51 | }; |
| 51 | } | 52 | } |
| 52 | 53 | ||
| 53 | # bind to stdin (debug) | 54 | # bind to stdin (debug) |
| 54 | if (1) { | 55 | if (1) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |