| … | |
… | |
| 777 | # things we do from time to time only |
777 | # things we do from time to time only |
| 778 | unless ($CLK & 0xf) { |
778 | unless ($CLK & 0xf) { |
| 779 | # do I/O |
779 | # do I/O |
| 780 | |
780 | |
| 781 | unless ($CLK & 0xfff) { |
781 | unless ($CLK & 0xfff) { |
| 782 | if (select $x = $RIN, undef, undef, $POWERSAVE < 10 ? 0 : $CURSOR_IS_ON && 10) { |
782 | if (select $x = $RIN, undef, undef, $POWERSAVE < 10 ? 0 : $CURSOR_IS_ON && 3600) { |
| 783 | |
783 | |
| 784 | # pty/serial I/O |
784 | # pty/serial I/O |
| 785 | if ($PTY && (vec $x, fileno $PTY, 1) && (@PUSARTRECV < 128) && !@KQUEUE) { |
785 | if ($PTY && (vec $x, fileno $PTY, 1) && (@PUSARTRECV < 128) && !@KQUEUE) { |
| 786 | sysread $PTY, my $buf, 256; |
786 | sysread $PTY, my $buf, 256; |
| 787 | |
787 | |
