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

[John E. Malmberg]

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


While investigating the following:

EAGLE> mcr [-]ndbgperl.exe "-I[-.lib]" [-.ext.safe.t]safe2.t
1..32
not ok 30 # "not a directory" is 20 (expected 2)

X/Open states that "not a directory" (errno = 20) is also a valid error 
code for this test, but I do not have time to work up a patch for it.

-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';