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

diff --git a/lddot b/lddot
index 5c3568c..1748edc 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,9 @@ examine() {
     objdump -p "$1" | sed -n 's/^.*NEEDED \+\(lib.*\)/\1/p' >"$tfile"
     while read lib; do
 	if ! lib2="$(findlib "$lib")"; then
-	    echo "lddot: $lib: not found" >&2
-	    rm -f "$tfile"
-	    return 1
+	    echo "\"$lib\" [ color=red ];"
+	    echo "\"$1\" -> \"$lib\";"
+	    continue
 	fi
 	lib="$lib2"
 	unset lib2
@@ -107,6 +107,7 @@ for bin in "${programs[@]}"; do
 	rv=1
 	continue
     fi
+    echo "\"$bin\" [ shape=box ];"
     if ! examine "$bin"; then rv=1; fi
 done
 echo "}"