[patch@31788] Term::ReadLine::Stub missing get_line

[John E. Malmberg]

Resubmitted, Did this get lost in the shuffle?

Term::Readline::Stub was missing get_line() and the detached X11 
debugger requires it to be present.

-
Fix Detached debugger crashing with the following message:

Can't locate object method "get_line" via package "Term::ReadLine::Stub"
at ../lib/Term/ReadLine.pm line 198, <DATA> line 17.
  at ../lib/Term/ReadLine.pm line 198

Term::ReadLine::Stub::readline('Term::ReadLine::Stub=ARRAY(0x9ea698)', '
  DB<7> ') called at ../lib/perl5db.pl line 6382
         DB::readline('  DB<7> ') called at ../lib/perl5db.pl line 2227
         DB::DB called at [-.ext.safe.t]safe2.t line 134
Can't locate object method "get_line" via package "Term::ReadLine::Stub"
at ../lib/Term/ReadLine.pm line 198, <DATA> line 17.
END failed--call queue aborted at [-.ext.safe.t]safe2.t line 198, <DATA>
line 17.
  at [-.ext.safe.t]safe2.t line 198
Unbalanced scopes: 3 more ENTERs than LEAVEs
%SYSTEM-F-NOLOGNAM, no logical name match

-John
[EMAIL PROTECTED]
Personal Opinion Only

--- /rsync_root/perl/lib/Term/ReadLine.pm       Tue Jun 13 14:29:18 2006
+++ lib/Term/ReadLine.pm        Tue Sep  4 08:27:14 2007
@@ -294,6 +294,13 @@
 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';