X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perliol.h;h=0c57de15058e98bbea1b90b6f760c820f87650d9;hb=19b95bf092bc6fdb9455fe107fc46111b0a1ec31;hp=f062225248342c40fba7562d15c674a5ee52836c;hpb=6cb8cb214e85c7d67c2acca4f12551f90bf4908e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perliol.h b/perliol.h
index f062225..0c57de1 100644
--- a/perliol.h
+++ b/perliol.h
@@ -167,7 +167,10 @@ PERL_EXPORT_C PerlIO_list_t *PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE
 PERL_EXPORT_C void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
 PERL_EXPORT_C void PerlIO_list_push(pTHX_ PerlIO_list_t *list, PerlIO_funcs *funcs, SV *arg);
 PERL_EXPORT_C void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
-PERL_EXPORT_C void PerlIO_teardown(pTHX);
+
+/* PerlIO_teardown doesn't need exporting, but the EXTERN_C is needed
+ * for compiling as C++.  Must also match with what perl.h says. */
+EXTERN_C void PerlIO_teardown(pTHX);
 
 /*--------------------------------------------------------------------------------------*/
 /* Generic, or stub layer functions */