Problème de chainage de fonction avec la glibc dlsym/RTLD_NEXT

Bonjour.

J'ai un petit soucis avec un chaînage de fonction avec les fonctions
sous linux debian sarge.

Voici un petit bout ce code (vous pouvez faire du copier/coller direct
vers un shell) correspondant à un lien effectué lors de la compilation :
Code:
for i in 1 2 3 4
do
cat > lib$i.c <<EOF
#include <stdio.h>
#include <dlfcn.h>
void foo() {
void (*next_foo)(void);
printf("lib$i.foo()\n");
if (next_foo = (void (*)(void)) dlsym(RTLD_NEXT, "foo")) next_foo();
}
EOF
gcc -shared -fPIC lib$i.c -o lib$i.so -D_GNU_SOURCE
done
cat > chain.c <<EOF
#include <dlfcn.h>
extern void foo();
int main() {
foo();
return 0;
}
EOF
gcc chain.c -o chain -L. -l1 -l2 -l3 -l4 -ldl
LD_LIBRARY_PATH=.:$LD_LIBRARY_PATH ./chain


J'obtiens bien ce que j'attends :
Code:

lib1.foo()
lib2.foo()
lib3.foo()
lib4.foo()


Seulement, en effectuant les liens dynamiquement en runtime, comme dans
l'exemple suivant :
Code:
cat > chain2.c <<EOF
#include <dlfcn.h>
int main() {
void *l1, *l2, *l3, *l4;
void (*bar)();
l1 = dlopen("lib1.so", RTLD_NOW | RTLD_GLOBAL);
l2 = dlopen("lib2.so", RTLD_NOW | RTLD_GLOBAL);
l3 = dlopen("lib3.so", RTLD_NOW | RTLD_GLOBAL);
l4 = dlopen("lib4.so", RTLD_NOW | RTLD_GLOBAL);
bar = (void (*)()) dlsym(RTLD_DEFAULT, "foo");
bar();
dlclose(l4);
dlclose(l3);
dlclose(l2);
dlclose(l1);
return 0;
}
EOF
gcc chain2.c -o chain2 -ldl -D_GNU_SOURCE
LD_LIBRARY_PATH=.:$LD_LIBRARY_PATH ./chain2


J'obtiens :
Code:

lib1.foo()


Les fonctions "foo" des lib2, lib3 et lib4 ne sont pas prises en compte.

Avez-vous un comportement similaires sous d'autres versions de linux /
ou d'autres Unix ?

Pour information, le même code sous solaris 8 lié avec la libdl.so
native de solaris et compilé avec Forte (compilateur natif) donne le
résultat attendu.

D'avance un grand merci.

Yann LANGLAIS.