diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 1999-06-27 22:50:30 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-06-27 19:16:22 +0000 |
| commit | 4d2c4e078e0d58f7b5fd54b2aedc642bb9296f6e (patch) | |
| tree | be9ef64b9e59f30053c8489a35e88635651231b3 /lib | |
| parent | b3aa72f262976602aa7b63fbec11f00992923ec7 (diff) | |
| download | perl-4d2c4e078e0d58f7b5fd54b2aedc642bb9296f6e.tar.gz | |
EPOC port to Psion5.
To: Jarkko Hietaniemi <jhi@iki.fi>
Cc: perl5-porters@perl.org
Subject: Re: Psion5
Message-ID: <Pine.GHP.4.02.9906272048130.17736-100000@io.science-computing.de>
p4raw-id: //depot/cfgperl@3555
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) { |