added Term::ReadLine::EditLine support

rafl · Sep 7, 2013 · 5a52630 · 5a52630
1 parent e2fcf3d
commit 5a52630
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Term/ReadLine.pm b/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"}) {