From e670910b0c400b157be823734ec6e961eafe0d4a Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 30 Jan 2007 06:20:21 +0200 Subject: one more iteration on PerlIO_teardown prototype Message-Id: <20070130022021.6051443A67@anubis.hut.fi> p4raw-id: //depot/perl@30079 --- perliol.h | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perliol.h') diff --git a/perliol.h b/perliol.h index f062225248..0c57de1505 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 */ -- cgit v1.2.1