diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-19 10:34:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-19 10:44:49 +0000 |
| commit | 1b9043bb5ee28cabe60d5dc8a9c4365e365c7ca0 (patch) | |
| tree | c8068801c5647ae704e072b517379ff786ce465a | |
| parent | c0395286602760bd9b6d761786177bee69f9b3f5 (diff) | |
| download | perl-1b9043bb5ee28cabe60d5dc8a9c4365e365c7ca0.tar.gz | |
Remove Mac OS classic code from the Errno.pm generation script.
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 26 |
1 files changed, 7 insertions, 19 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 52c1266e18..5621abdfc7 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -81,19 +81,12 @@ sub process_file { } } - if ($^O eq 'MacOS') { - while(<FH>) { - $err{$1} = $2 - if /^\s*#\s*define\s+(E\w+)\s+(\d+)/; - } - } else { - while(<FH>) { - $err{$1} = 1 - if /^\s*#\s*define\s+(E\w+)\s+/; - if ($IsMSWin32) { - $wsa{$1} = 1 - if /^\s*#\s*define\s+WSA(E\w+)\s+/; - } + while(<FH>) { + $err{$1} = 1 + if /^\s*#\s*define\s+(E\w+)\s+/; + if ($IsMSWin32) { + $wsa{$1} = 1 + if /^\s*#\s*define\s+WSA(E\w+)\s+/; } } @@ -154,11 +147,6 @@ sub get_files { my $linux_errno_h = -e '/usr/include/errno.h' ? '/usr/include/errno.h' : '/usr/local/include/errno.h'; $file{$linux_errno_h} = 1; - } elsif ($^O eq 'MacOS') { - # note that we are only getting the GUSI errno's here ... - # we might miss out on compiler-specific ones - $file{"$ENV{GUSI}include:sys:errno.h"} = 1; - } elsif ($^O eq 'beos' || $^O eq 'haiku') { # hidden in a special place $file{'/boot/develop/headers/posix/errno.h'} = 1; @@ -254,7 +242,7 @@ sub write_errno_pm { close(CPPI); - unless ($^O eq 'MacOS' || $^O eq 'beos') { # trust what we have / get later + unless ($^O eq 'beos') { # trust what we have / get later # invoke CPP and read the output if ($^O eq 'VMS') { |