43 lines
1.3 KiB
Plaintext
43 lines
1.3 KiB
Plaintext
Fix the PerlIO_teardown prototype to suppress a compiler warning. (Closes: #479540)
|
|
|
|
Part of upstream change 33370, also in maint-5.10.
|
|
diff --git a/perl.h b/perl.h
|
|
index e48f768..abcae45 100644
|
|
--- a/perl.h
|
|
+++ b/perl.h
|
|
@@ -3966,7 +3966,7 @@ typedef Sighandler_t Sigsave_t;
|
|
#endif
|
|
|
|
#ifdef USE_PERLIO
|
|
-EXTERN_C void PerlIO_teardown();
|
|
+EXTERN_C void PerlIO_teardown(void);
|
|
# ifdef USE_ITHREADS
|
|
# define PERLIO_INIT MUTEX_INIT(&PL_perlio_mutex)
|
|
# define PERLIO_TERM \
|
|
diff --git a/perlio.c b/perlio.c
|
|
index 76fe225..b94acb0 100644
|
|
--- a/perlio.c
|
|
+++ b/perlio.c
|
|
@@ -2413,7 +2413,7 @@ PerlIO_cleanup(pTHX)
|
|
}
|
|
}
|
|
|
|
-void PerlIO_teardown() /* Call only from PERL_SYS_TERM(). */
|
|
+void PerlIO_teardown(void) /* Call only from PERL_SYS_TERM(). */
|
|
{
|
|
dVAR;
|
|
#if 0
|
|
diff --git a/perliol.h b/perliol.h
|
|
index 756db2d..caba999 100644
|
|
--- a/perliol.h
|
|
+++ b/perliol.h
|
|
@@ -170,7 +170,7 @@ PERL_EXPORT_C void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
|
|
|
|
/* 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();
|
|
+EXTERN_C void PerlIO_teardown(void);
|
|
|
|
/*--------------------------------------------------------------------------------------*/
|
|
/* Generic, or stub layer functions */
|