Remove Mac OS classic code from the Errno.pm generation script.
authorNicholas Clark <nick@ccl4.org>
Wed, 19 Jan 2011 10:34:01 +0000 (10:34 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 19 Jan 2011 10:44:49 +0000 (10:44 +0000)
ext/Errno/Errno_pm.PL

index 52c1266..5621abd 100644 (file)
@@ -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') {