[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 (file)
--- 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) {