diff options
| -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 } } |