From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 6 Nov 2000 23:05:49 +0000 (+0000)
Subject: glibc5 detection by __GNU_LIBRARY__.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3f494f1ad12aae0db4dead20ca74fde31e03266;p=p5sagit%2Fp5-mst-13.2.git

glibc5 detection by __GNU_LIBRARY__.

p4raw-id: //depot/perl@7582
---

diff --git a/toke.c b/toke.c
index 98ef9b9..30a861a 100644
--- 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