CPAN & TRL-Gnu

p5p-msgid: 9704040809.AA26143@o09.rosat.mpe-garching.mpg.de

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index a163faf..4f4c3a0 100644 (file)
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -308,10 +308,10 @@ sub shell {
     my $getcwd;
     $getcwd = $CPAN::Config->{'getcwd'} || 'cwd';
     my $cwd = Cwd->$getcwd();
-    # How should we determine if we have more than stub ReadLine enabled?
     my $rl_avail = $Suppress_readline ? "suppressed" :
-       defined &Term::ReadLine::Perl::readline ? "enabled" :
-           "available (get Term::ReadKey and Term::ReadLine::Perl)";
+       ($term->ReadLine ne "Term::ReadLine::Stub") ? "enabled" :
+           "available (get Term::ReadKey and Term::ReadLine::Perl ".
+           "or get Term::ReadLine::Gnu)";
 
     print qq{
 cpan shell -- CPAN exploration and modules installation (v$CPAN::VERSION)