This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make Term::Readline::get_line() independent of caller's $/
authorKurt D. Starsinic <kstar@wolfetech.com>
Mon, 13 Jul 1998 15:17:49 +0000 (11:17 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Jul 1998 03:58:13 +0000 (03:58 +0000)
Message-ID: <19980713151749.G8596@O2.chapin.edu>
Subject: [PATCH] Was: CPAN.pm still fails

p4raw-id: //depot/perl@1474

lib/Term/ReadLine.pm

index 83ba375..470226d 100644 (file)
@@ -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>;
 }