diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Term/ReadLine.pm | 2 | ||||
| -rw-r--r-- | lib/perl5db.pl | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index e7cf00cb8d..8bb820578a 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -193,7 +193,7 @@ sub findConsole { $console = "sys\$command"; } - if (($^O eq 'amigaos') || ($^O eq 'beos')) { + if (($^O eq 'amigaos') || ($^O eq 'beos') || ($^O eq 'epoc')) { $console = undef; } elsif ($^O eq 'os2') { diff --git a/lib/perl5db.pl b/lib/perl5db.pl index f6b0ecbc95..18d52dc88e 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -316,6 +316,10 @@ if ($notty) { $console = undef; } + if ($^O eq 'epoc') { + $console = undef; + } + $console = $tty if defined $tty; if (defined $console) { |