… | |
… | |
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 < 100 ? 0 : $CURSOR_IS_ON && 60) { |
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 | |