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
|
||||
rm libltdl/configure.tmp
|
||||
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue