Make B::Deparse able to handle pragmas from %^H.

[p5sagit/p5-mst-13.2.git] / ext / Errno / Errno_pm.PL

diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
index bd87f62..6f20c5e 100644 (file)
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
 use Config;
 use strict;
 
-our $VERSION = "1.09_01";
+our $VERSION = "1.10";
 
 my %err = ();
 my %wsa = ();
@@ -24,6 +24,8 @@ if ($Config{gccversion} ne '' && $^O eq 'MSWin32') {
     open INCS, '>includes.c' or
        die "Cannot open includes.c";
     foreach $file (@files) {
+       next if $file eq 'errno.c';
+       next unless -f $file;
        print INCS qq[#include "$file"\n];
     }
     close INCS;
@@ -132,8 +134,16 @@ sub get_files {
     } elsif ($Config{archname} eq 'epoc') {
        # Watch out for cross compiling for EPOC (usually done on linux)
        $file{'/usr/local/epocemx/epocsdk/include/libc/sys/errno.h'} = 1;
+    } elsif ($Config{archname} eq 'arm-riscos') {
+       # Watch out for cross compiling for RISC OS
+       my $dep = `echo "#include <errno.h>" | gcc -E -M -`;
+       if ($dep =~ /(\S+errno\.h)/) {
+            $file{$1} = 1;
+       }
     } elsif ($^O eq 'linux' &&
-            $Config{gccversion} ne '' # might be using, say, Intel's icc
+             $Config{gccversion} ne '' && 
+             $Config{gccversion} !~ /intel/i
+             # might be using, say, Intel's icc
             ) {
        # Some Linuxes have weird errno.hs which generate
        # no #file or #line directives
@@ -194,8 +204,6 @@ sub get_files {
                if (/$pat/o) {
                   my $f = $1;
                   $f =~ s,\\\\,/,g;
-                  next if $f eq 'errno.c';
-                  next unless -f $f;
                   $file{$f} = 1;
                }
            }