mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
Patch libltdl/ltdl.c to avoid a nasty bug in libtool-1.4.2.
This commit is contained in:
parent
c09d12e0fd
commit
0f59dd5fe6
1 changed files with 28 additions and 0 deletions
28
autogen.sh
28
autogen.sh
|
@ -55,6 +55,34 @@ if [ -f libltdl/configure.in ]; then
|
||||||
cat libltdl/configure.tmp >> libltdl/configure.in
|
cat libltdl/configure.tmp >> libltdl/configure.in
|
||||||
rm libltdl/configure.tmp
|
rm libltdl/configure.tmp
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
# Maybe patch ltdl.c. This is only needed for 1.4.2 and earlier.
|
||||||
|
if patch libltdl/ltdl.c <<EOP
|
||||||
|
--- ltdl.c~ Fri Apr 12 18:52:48 2002
|
||||||
|
+++ ltdl.c Tue Jul 9 14:12:47 2002
|
||||||
|
@@ -2246,15 +2246,15 @@
|
||||||
|
static int
|
||||||
|
find_handle_callback (filename, data, ignored)
|
||||||
|
char *filename;
|
||||||
|
lt_ptr data;
|
||||||
|
lt_ptr ignored;
|
||||||
|
{
|
||||||
|
lt_dlhandle *handle = (lt_dlhandle *) data;
|
||||||
|
- int found = access (filename, R_OK);
|
||||||
|
+ int found = !access (filename, F_OK);
|
||||||
|
|
||||||
|
/* Bail out if file cannot be read... */
|
||||||
|
if (!found)
|
||||||
|
return 0;
|
||||||
|
|
||||||
|
/* Try to dlopen the file, but do not continue searching in any
|
||||||
|
case. */
|
||||||
|
EOP
|
||||||
|
then true
|
||||||
|
else
|
||||||
|
echo "WARNING: could not patch libltdl, but this is probably OK."
|
||||||
|
fi
|
||||||
|
|
||||||
######################################################################
|
######################################################################
|
||||||
|
|
||||||
autoheader
|
autoheader
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue