org.handhelds.familiar/packages/perl/files/uclibc.patch

   1 As seen at http://codepoet.org/lists/uclibc/2004-March/008512.html:
   2
   3 Try the following (untested).  In .26, the field member was filedes.
   4 Current cvs uses __filedes (double underscore prefix).
   5
   6 Manuel
   7
   8 --- perl-5.8.4.orig/perlio.c    2004-03-22 14:54:03.000000000 -0500
   9 +++ perl-5.8.4/perlio.c 2005-03-09 04:33:49.386767312 -0500
  10 @@ -2824,7 +2824,15 @@
  11      /* XXX this could use PerlIO_canset_fileno() and
  12       * PerlIO_set_fileno() support from Configure
  13       */
  14 -#  if defined(__GLIBC__)
  15 +#  if defined(__UCLIBC__)
  16 +    /* uClibc must come before glibc because it defines __GLIBC__ as well. */
  17 +#    if defined(__MASK_READING)
  18 +    f->__filedes = -1;
  19 +#    else
  20 +    f->filedes = -1;
  21 +#    endif
  22 +    return 1;
  23 +#  elif defined(__GLIBC__)
  24      /* There may be a better way for GLIBC:
  25         - libio.h defines a flag to not close() on cleanup
  26       */