summaryrefslogtreecommitdiff
path: root/lib/complete.pl
diff options
context:
space:
mode:
authorLarry Wall <lwall@jpl-devvax.jpl.nasa.gov>1990-02-28 21:54:46 +0000
committerLarry Wall <lwall@jpl-devvax.jpl.nasa.gov>1990-02-28 21:54:46 +0000
commitafd9f252e30d37007c653bd21680f0b5f6c32608 (patch)
tree8be1940ec2b673c8419eadd321d41e7e1a05b30c /lib/complete.pl
parent449aadcac0f13893f2b716ea169bf74293ee9c41 (diff)
downloadperl-afd9f252e30d37007c653bd21680f0b5f6c32608.tar.gz
perl 3.0 patch #10 patch #9, continued
See patch #9.
Diffstat (limited to 'lib/complete.pl')
-rw-r--r--lib/complete.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/complete.pl b/lib/complete.pl
index 334d5390c6..b59bee32ee 100644
--- a/lib/complete.pl
+++ b/lib/complete.pl
@@ -25,6 +25,7 @@ sub Complete {
local ($prompt) = shift (@_);
local ($c, $cmp, $l, $r, $ret, $return, $test);
@_cmp_lst = sort @_;
+ local($[) = 0;
system 'stty raw -echo';
loop: {
print $prompt, $return;