From: djk Date: Tue, 29 Jun 1999 09:31:09 +0000 (+0000) Subject: set ^Z and ^V correctly X-Git-Tag: R_1_30~2 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9db74c1b2b9b57cb6d31e8c8c425f3636f62f87;p=spider.git set ^Z and ^V correctly --- diff --git a/perl/console.pl b/perl/console.pl index 29817564..35924e4c 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -186,7 +186,7 @@ sub rec_stdin } else { beep(); } - } elsif ($r eq KEY_PPAGE || $r eq "\026") { + } elsif ($r eq KEY_PPAGE || $r eq "\032") { if ($spos > 0) { $spos -= $pages; $spos = 0 if $spos < 0; @@ -194,7 +194,7 @@ sub rec_stdin } else { beep(); } - } elsif ($r eq KEY_NPAGE || $r eq "\032") { + } elsif ($r eq KEY_NPAGE || $r eq "\026") { if ($spos < @shistory - 1) { $spos += $pages; $spos = @shistory if $spos > @shistory;