From a033de58c091af821e3323963be6ce6dcf101afc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Dec 1999 20:49:19 +0000
Subject: no_comment

---
 rpm-find-leaves | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

(limited to 'rpm-find-leaves')

diff --git a/rpm-find-leaves b/rpm-find-leaves
index 30f3f2f1..f94190c5 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -1,7 +1,19 @@
 #!/usr/bin/perl
 
+local $_ = join '', @ARGV;
+
+/-h/ and die "usage: rpm-find-leaves [--show-unknown]\n";
+
+$show_unknown = /-show-unknown/;
+
 $r = join '|', map { chop; $l{$_} = 1; quotemeta } `rpm -qa --queryformat "%{NAME}\n"`;
-$R = qr/ $r/;
-open F, "/etc/urpmi/depslist" or die "can't find depslist\n";
-$R && /(\S+)-[^-]+-[^-]+ / && delete $l{$1} foreach <F>;
-print "$_\n" foreach keys %l;
+$R = qr/ ($r)-\d/;
+$R2 = qr/$r /;
+open F, "/var/lib/urpmi/depslist" or die "can't find depslist\n";
+F: foreach (<F>) {
+    my ($p) = /(\S+)-[^-]+-[^-]+ /;
+    $p =~ $R2 or next; # not installed
+    $L{$p} = 1;
+    delete $l{$1} while /$R/g;
+}
+$show_unknown || $L{$_} and print "$_\n" foreach keys %l;
-- 
cgit v1.2.1