cvsuser 04/10/07 08:40:32
Modified: config/auto headers.pl
Log:
- make headers autodetection work correctly on MinGW
- print a little bit more information if --verbose is used
Revision Changes Path
1.17 +8 -8 parrot/config/auto/headers.pl
Index: headers.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/headers.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- headers.pl 25 May 2004 12:33:14 -0000 1.16
+++ headers.pl 7 Oct 2004 15:40:32 -0000 1.17
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: headers.pl,v 1.16 2004/05/25 12:33:14 dan Exp $
+# $Id: headers.pl,v 1.17 2004/10/07 15:40:32 jrieks Exp $
=head1 NAME
@@ -21,10 +21,10 @@
$description="Probing for C headers...";
[EMAIL PROTECTED](miniparrot);
[EMAIL PROTECTED](miniparrot verbose);
sub runstep {
- my ($miniparrot) = @_;
+ my ($miniparrot, $verbose) = @_;
return if $miniparrot;
@@ -54,11 +54,11 @@
# the header.
my @extra_headers = qw(malloc.h fcntl.h setjmp.h pthread.h signal.h
sys/types.h sys/socket.h netinet/in.h arpa/inet.h
- sys/stat.h sysexit.h);
+ sys/stat.h sysexit.h sysmman.h netdb.h);
my @found_headers;
foreach my $header (@extra_headers) {
- my $pass;
+ my $pass = 0;
# First try with just the header. If that fails, try with all the
# headers we found so far. This is somewhat a hack, but makes probing
@@ -76,7 +76,7 @@
Configure::Data->set(testheader => undef);
eval { cc_build(); };
- if (!$@ && cc_run() =~ /^$header OK$/) {
+ if (!$@ && cc_run() =~ /^$header OK/) {
$pass = 1;
push @found_headers, $header;
}
@@ -86,7 +86,7 @@
my $flag = "i_$header";
$flag =~ s/\.h$//g; $flag =~ s/\///g;
-
+ print "$flag: $pass\n" if defined $verbose;
Configure::Data->set($flag, $pass ? 'define' : undef);
}
