From d9db74c1b2b9b57cb6d31e8c8c425f3636f62f87 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Tue, 29 Jun 1999 09:31:09 +0000
Subject: [PATCH] set ^Z and ^V correctly

---
 perl/console.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.43.0