Ticket #61588: patch-C-Compiler-Used-For-C++.diff

./Makefile.PL

@@ -11 +11 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
 package core;
 
 use 5.006001;

./ext/aui/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/calendar/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/dataview/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/datetime/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/dnd/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/docview/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/filesys/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/grid/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/help/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/html/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/ipc/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/mdi/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/media/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/print/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/propgrid/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/ribbon/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/richtext/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/socket/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/stc/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/test/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;

./ext/webview/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 
 use Config;

./ext/xrc/Makefile.PL

@@ -10 +10 @@
 ##              modify it under the same terms as Perl itself
 #############################################################################
 
+package MY;
+  sub const_config {
+    my $inherited = shift->SUPER::const_config(@ARG);
+    my ($cc) = $inherited =~ m/\nCC\s*=\s*([^\n]*)/;
+    $inherited .= "\nXCC = $cc";
+    $inherited;
+  }
+  sub const_cccmd {
+    my $inherited = shift->SUPER::const_cccmd(@ARG);
+    $inherited =~ s/\$\(CC\)/\$(XCC)/;
+    $inherited;
+  }
+
+package main;
+
 use strict;
 use lib '../../build';
 use Wx::build::MakeMaker;