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 | 4471601f2d4969617a9cf3f3130d64c530d7667f (patch) | |
| tree | 3b18ad70a1eecb573d2d6c186babe50547269f82 /lib/Term | |
| parent | ec59cdf2d5626eaa3f168bc98399329d7b24bc2e (diff) | |
| download | perl-4471601f2d4969617a9cf3f3130d64c530d7667f.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/Term')
| -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) { |