blob: 7379d8b8141300783d4012e7e76b5e8a0301aba6 [file] [log] [blame]
Patrick Williamsf1e5d692016-03-30 15:21:19 -05001Upstream-Status:Inappropriate [embedded specific]
2
3The upstream code assumes that the compiler version used to compiler miniperl/perl-native
4is the same as the one being used to build the perl binary. Since most people are not running
5systems with gcc 5, it is unlikely that it will work on any supported host. Switch out gccversion
6for the version extracted from $CC --version.
7
Patrick Williamsd8c66bc2016-06-20 12:57:21 -05008Jeremy Puhlman <jpuhlman@mvista.com>
9
10Fix spaces in brackets while running $CC --version
11Signed-off-by: Hongxu Jia <hongxu.jia@windriver.com>
12---
13 ext/Errno/Errno_pm.PL | 6 +++++-
14 1 file changed, 5 insertions(+), 1 deletion(-)
15
16diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
17index 1fd29d0..7976ea2 100644
18--- a/ext/Errno/Errno_pm.PL
19+++ b/ext/Errno/Errno_pm.PL
20@@ -224,9 +224,13 @@ sub write_errno_pm {
Patrick Williamsf1e5d692016-03-30 15:21:19 -050021
22 { # BeOS (support now removed) did not enter this block
23 # invoke CPP and read the output
24+ my $compiler = $ENV{'CC'};
25+ my $compiler_out = `$compiler --version`;
Patrick Williamsd8c66bc2016-06-20 12:57:21 -050026+ $compiler_out =~ s/\(.*\)/;/;
Patrick Williamsf1e5d692016-03-30 15:21:19 -050027+ my @compiler_version = split / /,$compiler_out;
28
29 my $inhibit_linemarkers = '';
30- if ($Config{gccversion} =~ /\A(\d+)\./ and $1 >= 5) {
31+ if (@compiler_version[2] =~ /\A(\d+)\./ and $1 >= 5) {
32 # GCC 5.0 interleaves expanded macros with line numbers breaking
33 # each line into multiple lines. RT#123784
34 $inhibit_linemarkers = ' -P';
Patrick Williamsd8c66bc2016-06-20 12:57:21 -050035--
361.9.1
37