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