Term::Readline patch for AmigaOS

I stumbled upon this when trying to get CPAN working.

p5p-msgid: 77724797@Armageddon.meb.uni-bonn.de

diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm
index 0c88a76..879642f 100644 (file)
--- a/lib/Term/ReadLine.pm
+++ b/lib/Term/ReadLine.pm
@@ -160,6 +160,10 @@ sub findConsole {
       }
     }
 
+    if ($^O eq 'amigaos') {
+       $console = undef;
+    }
+
     $consoleOUT = $console;
     $console = "&STDIN" unless defined $console;
     if (!defined $consoleOUT) {