set ^Z and ^V correctly

diff --git a/perl/console.pl b/perl/console.pl
index 29817564533c95cd37b243435c683c13c06409ab..35924e4c08a2a02f1f2be26dcab53a28d3be6769 100755 (executable)
--- 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;