diff options
| author | Steve Peters <steve@fisharerojo.org> | 2004-11-26 17:14:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-26 17:20:46 +0000 |
| commit | be3918a2fa43bbcf3d92d45dbf71aedf56fddfa7 (patch) | |
| tree | d45d04467280c77df063488e3c27ea7775b29fc4 /lib/Term | |
| parent | 32aeac00e3860b7bf1ab7236d73b402bf093834b (diff) | |
| download | perl-be3918a2fa43bbcf3d92d45dbf71aedf56fddfa7.tar.gz | |
[perl #32639] [PATCH] Bug in Term::Complete Module with $_ Usage
From: "Steve Peters via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-32639-101066.11.6172971744206@perl.org>
p4raw-id: //depot/perl@23548
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/Complete.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Term/Complete.pm b/lib/Term/Complete.pm index c74907bb59..601e495643 100644 --- a/lib/Term/Complete.pm +++ b/lib/Term/Complete.pm @@ -5,7 +5,7 @@ require Exporter; use strict; our @ISA = qw(Exporter); our @EXPORT = qw(Complete); -our $VERSION = '1.401'; +our $VERSION = '1.402'; # @(#)complete.pl,v1.2 (me@anywhere.EBay.Sun.COM) 09/23/91 @@ -113,6 +113,7 @@ sub Complete { } system $tty_raw_noecho if defined $tty_raw_noecho; LOOP: { + local $_; print($prompt, $return); while (($_ = getc(STDIN)) ne "\r") { CASE: { |