… | |
… | |
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)) { |