From 7c9bff26bd92d659d9f26b00a3dc688722342ec0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 24 Feb 2001 20:44:08 +0000
Subject: (more): handle 'q' to quit

---
 perl-install/commands.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/commands.pm')

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 37f672659..5cb0e5f5f 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -367,7 +367,11 @@ sub more {
     my $tty = devices::make('tty');
     local *IN; open IN, "<$tty" or die "can't open $tty\n";
     my $n = 0; while (<>) {
-	++$n == 25 and $n = <IN>, $n = 0;
+	if (++$n == 25) {
+	    my $v = <IN>;
+	    $v =~ /^q/ and exit 0;
+	    $n = 0;
+	}
 	print
     }
 }
-- 
cgit v1.2.1