From 2f88b4669a6d618ce74efe9d0dcf8e304d40364e Mon Sep 17 00:00:00 2001 From: Tokuhiro Matsuno Date: Sat, 26 Jan 2013 22:01:18 +0900 Subject: added Term::ReadLine::EditLine support --- dist/Term-ReadLine/lib/Term/ReadLine.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'dist') 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"}) { -- cgit v1.2.1