From be3918a2fa43bbcf3d92d45dbf71aedf56fddfa7 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 26 Nov 2004 17:14:33 +0000
Subject: [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
---
 lib/Term/Complete.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/Term')

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: {
-- 
cgit v1.2.1