]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Protect against d_cplusplus perls
authorVincent Pit <perl@profvince.com>
Sat, 4 Nov 2017 15:41:35 +0000 (16:41 +0100)
committerVincent Pit <perl@profvince.com>
Sat, 4 Nov 2017 15:41:37 +0000 (16:41 +0100)
It's only a matter of time before someone uses this in the wild.

Makefile.PL

index 08560fb40eff28094ff62883451f9f240ea169bf..787889a4585d1167824b7cc6d41f39687ef01e9f 100644 (file)
@@ -6,6 +6,28 @@ use ExtUtils::MakeMaker;
 
 use Config;
 
 
 use Config;
 
+if ($Config{d_cplusplus}) {
+ print STDERR <<'FAILPLUSPLUS';
+Configuration aborted: C++ compilers are not supported
+
+    Your perl has been built with a C++ compiler, which is then handed to
+    XS extensions as if it were a proper C compiler. This extension is
+    written in C, and naturally only supports C compilers, so it cannot be
+    built with your perl.
+
+    Note that building perl with a C++ compiler is only supposed to be done
+    by core developers in order to check that the perl headers can be
+    included from C++ code. Its use in the wild is not supported by the
+    perl5 porters. If your vendor has built its perl binary with a C++
+    compiler, please consider reporting this issue to them.
+
+    This text will be displayed 10 seconds, and then the configuration
+    script will exit.
+FAILPLUSPLUS
+ sleep 10;
+ exit 0;
+}
+
 my $pl   = $Config{perl_patchlevel};
 my $desc = $Config{git_describe};
 for ($pl, $desc) {
 my $pl   = $Config{perl_patchlevel};
 my $desc = $Config{git_describe};
 for ($pl, $desc) {