X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=35924e4c08a2a02f1f2be26dcab53a28d3be6769;hb=d9db74c1b2b9b57cb6d31e8c8c425f3636f62f87;hp=29817564533c95cd37b243435c683c13c06409ab;hpb=5786033c3b690156c4de651c924509d4addf6b27;p=spider.git

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;