diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1997-03-22 15:34:25 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-22 15:34:25 +1200 |
| commit | 287f63d2c08dd5a7bc8cdc5c3e52c407bc3af649 (patch) | |
| tree | cbf3b857b1962288970bf1b7e48371aba988d0a0 /lib/Term | |
| parent | a66bc3b0c7b47b1405c3f62393e8f35e9a4bbdb8 (diff) | |
| download | perl-287f63d2c08dd5a7bc8cdc5c3e52c407bc3af649.tar.gz | |
Term::Readline patch for AmigaOS
(this is the same change as commit c6f23515cbc613899d8b79910cc2429dea847fde, but as applied)
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/ReadLine.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 0c88a76e41..7b735eb424 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 { |