[perl.git] branch blead, updated. v5.13.8-395-g1b9043b

[Nicholas Clark]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/1b9043bb5ee28cabe60d5dc8a9c4365e365c7ca0?hp=c0395286602760bd9b6d761786177bee69f9b3f5>

- Log -----------------------------------------------------------------
commit 1b9043bb5ee28cabe60d5dc8a9c4365e365c7ca0
Author: Nicholas Clark <n...@ccl4.org>
Date:   Wed Jan 19 10:34:01 2011 +0000

    Remove Mac OS classic code from the Errno.pm generation script.
-----------------------------------------------------------------------

Summary of changes:
 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 52c1266..5621abd 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') {

--
Perl5 Master Repository