diff options
| author | Richard Clamp <richardc@unixbeard.net> | 2001-12-10 00:51:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-10 00:15:19 +0000 |
| commit | e15d0a488cd96bf0cd62651d11d7a5718ab1cde3 (patch) | |
| tree | 83cc5bbbfc0e3ee2e805275ee04e9eb672d49b95 /lib/Term/ReadLine.pm | |
| parent | 932b74874cde09c18c99efef628e815e5bd4bf76 (diff) | |
| download | perl-e15d0a488cd96bf0cd62651d11d7a5718ab1cde3.tar.gz | |
Term::ReadLine tweaks and test
Message-ID: <20011210005147.GA1073@mirth.demon.co.uk>
p4raw-id: //depot/perl@13576
Diffstat (limited to 'lib/Term/ReadLine.pm')
| -rw-r--r-- | lib/Term/ReadLine.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 5a8c251619..a23208c420 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -41,7 +41,7 @@ where $term is a return value of Term::ReadLine-E<gt>Init. returns the actual package that executes the commands. Among possible values are C<Term::ReadLine::Gnu>, C<Term::ReadLine::Perl>, -C<Term::ReadLine::Stub Exporter>. +C<Term::ReadLine::Stub>. =item C<new> @@ -311,6 +311,8 @@ if (defined &Term::ReadLine::Gnu::readline) { @ISA = qw(Term::ReadLine::Gnu Term::ReadLine::Stub); } elsif (defined &Term::ReadLine::Perl::readline) { @ISA = qw(Term::ReadLine::Perl Term::ReadLine::Stub); +} elsif (defined $which && defined &{"Term::ReadLine::$which\::readline"}) { + @ISA = "Term::ReadLine::$which"; } else { @ISA = qw(Term::ReadLine::Stub); } |