diff options
| author | Tokuhiro Matsuno <tokuhirom@gmail.com> | 2013-01-26 22:01:18 +0900 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2013-09-07 10:10:18 -0400 |
| commit | 2f88b4669a6d618ce74efe9d0dcf8e304d40364e (patch) | |
| tree | ab5df8d7af551a5f87d637b854b908f6abba35a9 /dist/Term-ReadLine | |
| parent | 790ba900de145c841e28fa6ca01e21251752cf47 (diff) | |
| download | perl-2f88b4669a6d618ce74efe9d0dcf8e304d40364e.tar.gz | |
added Term::ReadLine::EditLine support
Diffstat (limited to 'dist/Term-ReadLine')
| -rw-r--r-- | dist/Term-ReadLine/lib/Term/ReadLine.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm index 91e0a41ec6..4d446f6872 100644 --- a/dist/Term-ReadLine/lib/Term/ReadLine.pm +++ b/dist/Term-ReadLine/lib/Term/ReadLine.pm @@ -337,7 +337,7 @@ if ($which) { } elsif (defined $which and $which ne '') { # Defined but false # Do nothing fancy } else { - eval "use Term::ReadLine::Gnu; 1" or eval "use Term::ReadLine::Perl; 1"; + eval "use Term::ReadLine::Gnu; 1" or eval "use Term::ReadLine::EditLine; 1" or eval "use Term::ReadLine::Perl; 1"; } #require FileHandle; @@ -347,6 +347,8 @@ if ($which) { our @ISA; if (defined &Term::ReadLine::Gnu::readline) { @ISA = qw(Term::ReadLine::Gnu Term::ReadLine::Stub); +} elsif (defined &Term::ReadLine::EditLine::readline) { + @ISA = qw(Term::ReadLine::EditLine 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"}) { |