X-Git-Url: http://dolda2000.com/gitweb/?p=utils.git;a=blobdiff_plain;f=lddot;h=bdbc5ebbeb906f6703f64802738424c6a41fe965;hp=5c3568cad476d8debccfe04e9c0efaebbffc73d9;hb=f7bd9b51138dbccb7cc2fd27f07ef66d5d2d79cf;hpb=ab22601b8673aa0f4e0ec02e540ea9af456601a3

diff --git a/lddot b/lddot
index 5c3568c..bdbc5eb 100755
--- a/lddot
+++ b/lddot
@@ -5,7 +5,7 @@ while read dir; do
     if [ "${dir:0:1}" == "#" ]; then
 	continue
     elif [ -d "$dir" ]; then
-	ldpath=$("${LDPATH[@]}" "$dir")
+	ldpath=("${ldpath[@]}" "$dir")
     fi
 done </etc/ld.so.conf
 ldpath=("${ldpath[@]}" /usr/lib /lib)
@@ -41,7 +41,7 @@ has() {
 excluded() {
     for obj in "${exclude[@]}"; do
 	if [ -d "$obj" ] && [[ "$1" == "$obj"* ]]; then return 0; fi
-	if [ "$1" = "$obj" ]; then return 0; fi
+	if [ "$1" -ef "$obj" ]; then return 0; fi
     done
     return 1
 }
@@ -52,9 +52,10 @@ examine() {
     objdump -p "$1" | sed -n 's/^.*NEEDED \+\(lib.*\)/\1/p' >"$tfile"
     while read lib; do
 	if ! lib2="$(findlib "$lib")"; then
+	    echo "\"$lib\" [ color=red ];"
 	    echo "lddot: $lib: not found" >&2
-	    rm -f "$tfile"
-	    return 1
+	    echo "\"$1\" -> \"$lib\";"
+	    continue
 	fi
 	lib="$lib2"
 	unset lib2
@@ -107,6 +108,7 @@ for bin in "${programs[@]}"; do
 	rv=1
 	continue
     fi
+    echo "\"$bin\" [ shape=box ];"
     if ! examine "$bin"; then rv=1; fi
 done
 echo "}"