X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTerm%2FComplete.pm;h=601e4956430877551521be9a9319ad46530852d9;hb=a5cf58215d4b35afd5701a8ba967072050fb847c;hp=c74907bb597144a0c22aaa3293daa76b26b4c485;hpb=e05a8f29fa78aef20a9869bf742d9b3217cda019;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Term/Complete.pm b/lib/Term/Complete.pm
index c74907b..601e495 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: {