1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
--- /usr/bin/cg Mon Apr 30 13:40:21 2001
+++ /tmp/cg Wed Jun 20 17:29:40 2001
@@ -494,9 +494,9 @@
# and get command character
chop $Input;
@Keys = split(/\s+/, $Input);
- do { $Command = shift @Keys; } while ((defined $Command) and !$Command);
+ do { $Command = shift @Keys; } while ((defined $Command) and !$Command and ($Command ne "0"));
- return 1 if !$Command; # <Return> pressed, display next page
+ return 1 if !$Command and ($Command ne "0"); # <Return> pressed, display next page
return 1 if ($Command eq "v");
return undef if (($Command eq "q") | ($Command eq "Q"));
return -1 if (($Command eq "-") | ($Command eq "b") |
|
