[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

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