From 4e83e45193a4b31061c369233abb3560d500834e Mon Sep 17 00:00:00 2001
From: "Kurt D. Starsinic" <kstar@wolfetech.com>
Date: Mon, 13 Jul 1998 11:17:49 -0400
Subject: make Term::Readline::get_line() independent of caller's $/ 
 Message-ID: <19980713151749.G8596@O2.chapin.edu> 	Subject: [PATCH] Was:
 CPAN.pm still fails

p4raw-id: //depot/perl@1474
---
 lib/Term/ReadLine.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib')

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index 83ba375742..470226da91 100644
--- a/lib/Term/ReadLine.pm
+++ b/lib/Term/ReadLine.pm
@@ -357,6 +357,7 @@ sub get_line {
   my $self = shift;
   $self->Tk_loop if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;
   my $in = $self->IN;
+  local ($/) = "\n";
   return scalar <$in>;
 }
 
-- 
cgit v1.2.1