diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2007-09-12 15:14:53 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-09-13 11:29:20 +0000 |
| commit | 93b8536fee96b2836c8407ef7f8210f72cdd58b9 (patch) | |
| tree | 3b18ad70a1eecb573d2d6c186babe50547269f82 /lib | |
| parent | 818f0b6f75d32ea95d518de5ad4cd8464ce15624 (diff) | |
| download | perl-93b8536fee96b2836c8407ef7f8210f72cdd58b9.tar.gz | |
[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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Term/ReadLine.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 0b25379b36..c1d17621f1 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) { |