From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 26 Nov 2004 17:14:33 +0000 (+0000)
Subject: [perl #32639] [PATCH] Bug in Term::Complete Module with $_ Usage
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be3918a2fa43bbcf3d92d45dbf71aedf56fddfa7;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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: {