From: Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
Date: Fri, 4 Apr 1997 08:09:03 +0000 (+0200)
Subject: CPAN & TRL-Gnu
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fe3829d7944eb627ee5360e65ca8f7afe76886d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)