glibc5 detection by __GNU_LIBRARY__.

p4raw-id: //depot/perl@7582

diff --git a/toke.c b/toke.c
index 98ef9b9..30a861a 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2523,10 +2523,16 @@ Perl_yylex(pTHX)
            bool bof = PL_rsfp ? TRUE : FALSE;
            if (bof) {
 #ifdef PERLIO_IS_STDIO
-#  ifdef __GLIBC__
-#    if __GLIBC__ == 1 /* Linux glibc5 */
+#  ifdef __GNU_LIBRARY__
+#    if __GNU_LIBRARY__ == 1 /* Linux glibc5 */
 #      define FTELL_FOR_PIPE_IS_BROKEN
 #    endif
+#  else
+#    ifdef __GLIBC__
+#      if __GLIBC__ == 1 /* maybe some glibc5 release had it like this? */
+#        define FTELL_FOR_PIPE_IS_BROKEN
+#      endif
+#    endif
 #  endif
 #endif
 #ifdef FTELL_FOR_PIPE_IS_BROKEN