diff options
| author | Achim Bohnet <ach@rosat.mpe-garching.mpg.de> | 1997-04-04 10:09:03 +0200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-03 10:03:25 +1200 |
| commit | 8fe3829d7944eb627ee5360e65ca8f7afe76886d (patch) | |
| tree | 2d9f2db5ba7145fa41a09d67516641a175614dd1 | |
| parent | 1be0b951896569eac7ad6c5fd5fd8c3ab526543b (diff) | |
| download | perl-8fe3829d7944eb627ee5360e65ca8f7afe76886d.tar.gz | |
CPAN & TRL-Gnu
p5p-msgid: 9704040809.AA26143@o09.rosat.mpe-garching.mpg.de
| -rw-r--r-- | lib/CPAN.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index a163faf3af..4f4c3a0ab2 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) |