| 1 |
Fix the PerlIO_teardown prototype to suppress a compiler warning. (Closes: #479540)
|
| 2 |
|
| 3 |
Part of upstream change 33370, also in maint-5.10.
|
| 4 |
diff --git a/perl.h b/perl.h
|
| 5 |
index e48f768..abcae45 100644
|
| 6 |
--- a/perl.h
|
| 7 |
+++ b/perl.h
|
| 8 |
@@ -3966,7 +3966,7 @@ typedef Sighandler_t Sigsave_t;
|
| 9 |
#endif
|
| 10 |
|
| 11 |
#ifdef USE_PERLIO
|
| 12 |
-EXTERN_C void PerlIO_teardown();
|
| 13 |
+EXTERN_C void PerlIO_teardown(void);
|
| 14 |
# ifdef USE_ITHREADS
|
| 15 |
# define PERLIO_INIT MUTEX_INIT(&PL_perlio_mutex)
|
| 16 |
# define PERLIO_TERM \
|
| 17 |
diff --git a/perlio.c b/perlio.c
|
| 18 |
index 76fe225..b94acb0 100644
|
| 19 |
--- a/perlio.c
|
| 20 |
+++ b/perlio.c
|
| 21 |
@@ -2413,7 +2413,7 @@ PerlIO_cleanup(pTHX)
|
| 22 |
}
|
| 23 |
}
|
| 24 |
|
| 25 |
-void PerlIO_teardown() /* Call only from PERL_SYS_TERM(). */
|
| 26 |
+void PerlIO_teardown(void) /* Call only from PERL_SYS_TERM(). */
|
| 27 |
{
|
| 28 |
dVAR;
|
| 29 |
#if 0
|
| 30 |
diff --git a/perliol.h b/perliol.h
|
| 31 |
index 756db2d..caba999 100644
|
| 32 |
--- a/perliol.h
|
| 33 |
+++ b/perliol.h
|
| 34 |
@@ -170,7 +170,7 @@ PERL_EXPORT_C void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
|
| 35 |
|
| 36 |
/* PerlIO_teardown doesn't need exporting, but the EXTERN_C is needed
|
| 37 |
* for compiling as C++. Must also match with what perl.h says. */
|
| 38 |
-EXTERN_C void PerlIO_teardown();
|
| 39 |
+EXTERN_C void PerlIO_teardown(void);
|
| 40 |
|
| 41 |
/*--------------------------------------------------------------------------------------*/
|
| 42 |
/* Generic, or stub layer functions */
|
Parent Directory
| 
Revision Log