findredundantdeps: fix for dependencies that are listed more than once in the Pkgfile

1 files changed, 12 insertions, 3 deletions

diff --git a/findredundantdeps b/findredundantdeps
index d71d56e..06b4ca0 100644
--- a/findredundantdeps
+++ b/findredundantdeps
@@ -6,7 +6,6 @@
 # $ findredundantdeps *
 # $ findredundantdeps bmp
 
-# $Id: findredundantdeps,v 1.2 2005/04/01 12:35:01 sip Exp $
 
 usage()
 {
@@ -27,6 +26,17 @@ find_deps()
     fi
 }
 
+get_directdeps()
+{
+    prt-get info $1 | gawk '
+    /^Dependencies:/ {  
+        split($2,a,",")
+        # remove duplicates
+        for (i in a) b[a[i]]=a[i] 
+        for (i in b) print b[i]
+    }'
+}
+
 sortvar()
 {
     for d in $*; do
@@ -100,8 +110,7 @@ for package in $*; do
 	subdeps=$(sortvar $subdeps)
 
 	res=$(sortvar_d $deps $subdeps)
-	# shudder
-	directdeps=$(prt-get info $package|awk '/^Dependencies:/ {print $2}'|tr ',' ' ')
+	directdeps=$(get_directdeps $package)
 
 	redundant=$(sortvar_d $res $directdeps)
 	# tranform \n in ' '