diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-06-21 20:42:38 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-06-23 08:52:45 +0100 |
| commit | f64e7edf51fa6878ada89003ea04b8672baadbb3 (patch) | |
| tree | 304ba4ed70a16fe4fb9b9d64829dace2a8845f33 /lib/Term | |
| parent | 2b894b7afaeab63c3565bccc12e75832831eb18f (diff) | |
| download | perl-f64e7edf51fa6878ada89003ea04b8672baadbb3.tar.gz | |
Remove MacOS classic support from blib, diagnostics and Term::ReadLine.
ExtUtils::MakeMaker removed MacOS support in 6.25, merged to blead in December
2004, so this code is vestigial, and a small runtime penalty.
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/ReadLine.pm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/Term/ReadLine.pm b/lib/Term/ReadLine.pm index 7ecb479646..0121cdfd06 100644 --- a/lib/Term/ReadLine.pm +++ b/lib/Term/ReadLine.pm @@ -180,7 +180,6 @@ sub readline { and defined &Tk::DoOneEvent; #$str = scalar <$in>; $str = $self->get_line; - $str =~ s/^\s*\Q$prompt\E// if ($^O eq 'MacOS'); utf8::upgrade($str) if (${^UNICODE} & PERL_UNICODE_STDIN || defined ${^ENCODING}) && utf8::valid($str); @@ -195,9 +194,7 @@ sub findConsole { my $console; my $consoleOUT; - if ($^O eq 'MacOS') { - $console = "Dev:Console"; - } elsif (-e "/dev/tty") { + if (-e "/dev/tty") { $console = "/dev/tty"; } elsif (-e "con" or $^O eq 'MSWin32') { $console = 'CONIN$'; @@ -291,7 +288,7 @@ sub get_line { package Term::ReadLine; # So late to allow the above code be defined? -our $VERSION = '1.06'; +our $VERSION = '1.07'; my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef; if ($which) { |