summaryrefslogtreecommitdiff
path: root/packages/perl/perl-5.8.4/uclibc.patch
diff options
context:
space:
mode:
authorMarcin Juszkiewicz <hrw@openembedded.org>2007-08-09 08:41:19 +0000
committerMarcin Juszkiewicz <hrw@openembedded.org>2007-08-09 08:41:19 +0000
commit9d829ed05c295df608b4fc108eb1c628fd06fd39 (patch)
treec1b27cfe4498f8abef1a61325922906f3e6a32ff /packages/perl/perl-5.8.4/uclibc.patch
parent1434b204e16e87b7f59f074f3036d5dcbcf0116f (diff)
parent6ccac10beeaaa02a86081bd6179fd57c208ad6b1 (diff)
merge of '76e1e69496801009ea0aa69c84f76e858978ab99'
and 'db976a98427dd6a195e2cf167e225de2d0206aea'
Diffstat (limited to 'packages/perl/perl-5.8.4/uclibc.patch')
-rw-r--r--packages/perl/perl-5.8.4/uclibc.patch26
1 files changed, 26 insertions, 0 deletions
diff --git a/packages/perl/perl-5.8.4/uclibc.patch b/packages/perl/perl-5.8.4/uclibc.patch
new file mode 100644
index 0000000000..ce8fe80ff2
--- /dev/null
+++ b/packages/perl/perl-5.8.4/uclibc.patch
@@ -0,0 +1,26 @@
+As seen at http://codepoet.org/lists/uclibc/2004-March/008512.html:
+
+Try the following (untested). In .26, the field member was filedes.
+Current cvs uses __filedes (double underscore prefix).
+
+Manuel
+
+--- perl-5.8.4.orig/perlio.c 2004-03-22 14:54:03.000000000 -0500
++++ perl-5.8.4/perlio.c 2005-03-09 04:33:49.386767312 -0500
+@@ -2824,7 +2824,15 @@
+ /* XXX this could use PerlIO_canset_fileno() and
+ * PerlIO_set_fileno() support from Configure
+ */
+-# if defined(__GLIBC__)
++# if defined(__UCLIBC__)
++ /* uClibc must come before glibc because it defines __GLIBC__ as well. */
++# if defined(__MASK_READING)
++ f->__filedes = -1;
++# else
++ f->filedes = -1;
++# endif
++ return 1;
++# elif defined(__GLIBC__)
+ /* There may be a better way for GLIBC:
+ - libio.h defines a flag to not close() on cleanup
+ */