From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Mon, 27 Oct 2008 19:26:50 +0000 (+0000)
Subject: Fix x2p, which was broken by #34598 with -DPERL_MEM_LOG.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=159e8d64637a3daadcbab30870860babbbe8e1c1;p=p5sagit%2Fp5-mst-13.2.git

Fix x2p, which was broken by #34598 with -DPERL_MEM_LOG.

p4raw-id: //depot/perl@34603
---

diff --git a/x2p/a2p.h b/x2p/a2p.h
index 750e153..6b6004c 100644
--- a/x2p/a2p.h
+++ b/x2p/a2p.h
@@ -151,6 +151,12 @@ char *strcpy(), *strcat();
 #endif
 #endif /* ! STANDARD_C */
 
+#ifdef __cplusplus
+#  define PERL_EXPORT_C extern "C"
+#else
+#  define PERL_EXPORT_C extern
+#endif
+
 #ifdef VMS
 #  include "handy.h"
 #else