diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-24 20:44:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-24 20:44:08 +0000 |
| commit | 7c9bff26bd92d659d9f26b00a3dc688722342ec0 (patch) | |
| tree | f699739f217b700d3af7af289a0c9669c024fe9e /perl-install/commands.pm | |
| parent | a856cd9df5388cf760caec911ef3b803411692e0 (diff) | |
| download | drakx-backup-do-not-use-7c9bff26bd92d659d9f26b00a3dc688722342ec0.tar drakx-backup-do-not-use-7c9bff26bd92d659d9f26b00a3dc688722342ec0.tar.gz drakx-backup-do-not-use-7c9bff26bd92d659d9f26b00a3dc688722342ec0.tar.bz2 drakx-backup-do-not-use-7c9bff26bd92d659d9f26b00a3dc688722342ec0.tar.xz drakx-backup-do-not-use-7c9bff26bd92d659d9f26b00a3dc688722342ec0.zip | |
(more): handle 'q' to quit
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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 } } |