| … | |
… | |
| 785 | |
785 | |
| 786 | # pty/serial I/O |
786 | # pty/serial I/O |
| 787 | if ($PTY && (vec $x, fileno $PTY, 1) && (@PUSARTRECV < 128) && !@KQUEUE) { |
787 | if ($PTY && (vec $x, fileno $PTY, 1) && (@PUSARTRECV < 128) && !@KQUEUE) { |
| 788 | sysread $PTY, my $buf, 256; |
788 | sysread $PTY, my $buf, 256; |
| 789 | |
789 | |
| 790 | # linux don't do cs7 and/or parity anymore, so we need to filter # out xoff characters to avoid freezes. |
790 | # linux don't do cs7 and/or parity anymore, so we need to filter |
|
|
791 | # out xoff characters to avoid freezes. |
| 791 | push @PUSARTRECV, grep { ($_ & 0x7f) != 0x13 } unpack "C*", $buf; |
792 | push @PUSARTRECV, grep { ($_ & 0x7f) != 0x13 } unpack "C*", $buf; |
| 792 | } |
793 | } |
| 793 | |
794 | |
| 794 | # keyboard input |
795 | # keyboard input |
| 795 | if ($KBD && (vec $x, 0, 1)) { |
796 | if ($KBD && (vec $x, 0, 1)) { |
