File tree Expand file tree Collapse file tree 1 file changed +19
-1
lines changed Expand file tree Collapse file tree 1 file changed +19
-1
lines changed Original file line number Diff line number Diff line change @@ -17,7 +17,7 @@ our $Is_FreeBSD = $^O eq 'freebsd';
1717
1818our @EXPORT = qw( which_perl perl_lib makefile_name makefile_backup
1919 make make_run run make_macro calibrate_mtime
20- have_compiler slurp
20+ have_compiler have_cplusplus slurp
2121 $Is_VMS $Is_MacOS
2222 run_ok
2323 hash2files
@@ -362,6 +362,24 @@ sub have_compiler {
362362 return $have_compiler ;
363363}
364364
365+ =item have_cplusplus
366+
367+ $have_compiler = have_cplusplus;
368+
369+ Returns true if there is a C++ compiler available for XS builds.
370+
371+ =cut
372+
373+ sub have_cplusplus {
374+ my $have_cplusplus = 0;
375+ eval {
376+ require ExtUtils::CBuilder;
377+ my $cb = ExtUtils::CBuilder-> new(quiet => 1);
378+ $have_cplusplus = $cb -> have_cplusplus;
379+ };
380+ return $have_cplusplus ;
381+ }
382+
365383=item slurp
366384
367385 $contents = slurp($filename);
You can’t perform that action at this time.
0 commit comments