This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Call macro instead of expanding it out
authorKarl Williamson <khw@cpan.org>
Sat, 17 Oct 2020 21:35:32 +0000 (15:35 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 22 Oct 2020 14:54:04 +0000 (08:54 -0600)
perl.h

diff --git a/perl.h b/perl.h
index f69da26..c1b9529 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -114,9 +114,9 @@ Otherwise ends a section of code already begun by a C<L</START_EXTERN_C>>.
 #undef END_EXTERN_C
 #undef EXTERN_C
 #ifdef __cplusplus
-#  define START_EXTERN_C extern "C" {
-#  define END_EXTERN_C }
 #  define EXTERN_C extern "C"
+#  define START_EXTERN_C EXTERN_C {
+#  define END_EXTERN_C }
 #else
 #  define START_EXTERN_C
 #  define END_EXTERN_C
@@ -3946,7 +3946,7 @@ typedef        struct crypt_data {     /* straight from /usr/include/crypt.h */
 
 #ifndef PERL_CALLCONV
 #  ifdef __cplusplus
-#    define PERL_CALLCONV extern "C"
+#    define PERL_CALLCONV  EXTERN_C
 #  else
 #    define PERL_CALLCONV
 #  endif