From: Chip Salzenberg <chip@atlantic.net>
Date: Sat, 22 Mar 1997 03:34:25 +0000 (+1200)
Subject: Term::Readline patch for AmigaOS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=287f63d2c08dd5a7bc8cdc5c3e52c407bc3af649;p=p5sagit%2Fp5-mst-13.2.git

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