perl_580-errno_h-parsing.patch

   1 diff -urN perl-5.6.1.orig/ext/Errno/Errno_pm.PL perl-5.6.1/ext/Errno/Errno_pm.PL
   2 --- perl-5.6.1.orig/ext/Errno/Errno_pm.PL       Sun Apr  8 08:09:16 2001
   3 +++ perl-5.6.1/ext/Errno/Errno_pm.PL    Thu Apr 12 20:58:53 2001
   4 @@ -37,6 +37,13 @@
   5              warn "Cannot open '$file'";
   6              return;
   7         }
   8 +    } elsif ($^O eq 'linux') {
   9 +       # With the -dM option option, gcc outputs every #define's it finds
  10 +       my $cpp = default_cpp();
  11 +       unless(open(FH, "$cpp -dM < $file |")) {
  12 +            warn "Cannot open '$file'";
  13 +            return;
  14 +       }
  15      } else {
  16         unless(open(FH,"< $file")) {
  17             # This file could be a temporary file created by cppstdin