From: John E. Malmberg <wb8tyw@qsl.net>
Date: Wed, 12 Sep 2007 20:14:53 +0000 (-0500)
Subject: [patch@31788] Term::ReadLine::Stub missing get_line
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4471601f2d4969617a9cf3f3130d64c530d7667f;p=p5sagit%2Fp5-mst-13.2.git

[patch@31788] Term::ReadLine::Stub missing get_line
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <46E88F0D.2090405@qsl.net>

p4raw-id: //depot/perl@31862
---

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index 0b25379..c1d1762 100644
--- a/lib/Term/ReadLine.pm
+++ b/lib/Term/ReadLine.pm
@@ -294,9 +294,16 @@ sub Attribs { {} }
 my %features = (tkRunning => 1, ornaments => 1, 'newTTY' => 1);
 sub Features { \%features }
 
+sub get_line {
+  my $self = shift;
+  my $in = $self->IN;
+  local ($/) = "\n";
+  return scalar <$in>;
+}
+
 package Term::ReadLine;		# So late to allow the above code be defined?
 
-our $VERSION = '1.02';
+our $VERSION = '1.03';
 
 my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef;
 if ($which) {