From b716ae24a5337b54c19a10df2ccdac17001efb88 Mon Sep 17 00:00:00 2001 From: Zakariyya Mughal Date: Thu, 14 Sep 2023 17:11:13 -0400 Subject: [PATCH] Make the C++ test export the expected symbol Use `namespace` instead of `class` and mark as `extern "C"`. --- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm | 2 +- dist/ExtUtils-CBuilder/t/03-cplusplus.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm index 31fbef0941..70c4ab82f6 100644 --- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm +++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm @@ -202,7 +202,7 @@ sub have_compiler { binmode $FH; if ( $is_cplusplus ) { - print $FH "class Bogus { public: int boot_compilet() { return 1; } };\n"; + print $FH q . "\n"; } else { print $FH "int boot_compilet(void) { return 1; }\n"; diff --git a/dist/ExtUtils-CBuilder/t/03-cplusplus.t b/dist/ExtUtils-CBuilder/t/03-cplusplus.t index 0c05ae29bb..2fae11fc0e 100644 --- a/dist/ExtUtils-CBuilder/t/03-cplusplus.t +++ b/dist/ExtUtils-CBuilder/t/03-cplusplus.t @@ -33,7 +33,7 @@ ok $b->have_cplusplus, "have_cplusplus"; $source_file = File::Spec->catfile('t', 'cplust.cc'); { open my $FH, '>', $source_file or die "Can't create $source_file: $!"; - print $FH "class Bogus { public: int boot_cplust() { return 1; } };\n"; + print $FH q . "\n"; close $FH; } ok -e $source_file, "source file '$source_file' created";