]>
Commit | Line | Data |
---|---|---|
1 | --- perl-5.8.7/utils/h2ph.PL.bz172236 2005-04-04 17:47:17.000000000 -0400 | |
2 | +++ perl-5.8.7/utils/h2ph.PL 2005-11-01 17:42:36.000000000 -0500 | |
3 | @@ -734,9 +734,15 @@ | |
4 | # non-GCC?) C compilers, but gcc uses an additional include directory. | |
5 | sub inc_dirs | |
6 | { | |
7 | - my $from_gcc = `$Config{cc} -v 2>&1`; | |
8 | - $from_gcc =~ s:^Reading specs from (.*?)/specs\b.*:$1/include:s; | |
9 | - | |
10 | + my $from_gcc = `LC_ALL=C $Config{cc} -v 2>&1`; | |
11 | + if( !( $from_gcc =~ s:^Reading specs from (.*?)/specs\b.*:$1/include:s ) ) | |
12 | + { # gcc-4+ : | |
13 | + $from_gcc = `LC_ALL=C $Config{cc} -print-search-dirs 2>&1`; | |
14 | + if ( !($from_gcc =~ s/^install:\s*([^\s]+[^\s\/])([\s\/]*).*$/$1\/include/s) ) | |
15 | + { | |
16 | + $from_gcc = ''; | |
17 | + }; | |
18 | + }; | |
19 | length($from_gcc) ? ($from_gcc, $Config{usrinc}) : ($Config{usrinc}); | |
20 | } | |
21 |