my_strerror is defined since perl 5.21.x

This change fixes https://rt.cpan.org/Ticket/Display.html?id=98234

diff --git a/perlio.c b/perlio.c
index d69e51965bb6b052f12ed7fdae4bcc4f171e8522..c4a6e8753eed816d17d65773311f3062b192edfb 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -18,6 +18,8 @@ static int
 perlio_closer(void *handle);
 static void
 perlio_destroy(void *handle);
 perlio_closer(void *handle);
 static void
 perlio_destroy(void *handle);

+/* my_strerror is defined since perl 5.21.x */
+#undef my_strerror

 static const char *my_strerror(pTHX_ int err);
 
 #ifndef tTHX
 static const char *my_strerror(pTHX_ int err);
 
 #ifndef tTHX