Term::Readline patch for AmigaOS

(this is the same change as commit c6f23515cbc613899d8b79910cc2429dea847fde, but as applied)

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index 0c88a76..7b735eb 100644 (file)
--- a/lib/Term/ReadLine.pm
+++ b/lib/Term/ReadLine.pm
@@ -152,7 +152,10 @@ sub findConsole {
        $console = "sys\$command";
     }
 
-    if (defined $ENV{'OS2_SHELL'}) { # In OS/2
+    if ($^O eq 'amigaos') {
+       $console = undef;
+    }
+    elsif ($^O eq 'os2') {
       if ($DB::emacs) {
        $console = undef;
       } else {