From: Norbert Pueschel <pueschel@imsdd.meb.uni-bonn.de>
Date: Sun, 23 Mar 1997 17:57:22 +0000 (+0100)
Subject: Term::Readline patch for AmigaOS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6f23515cbc613899d8b79910cc2429dea847fde;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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) {