From 2b6d115da4ba39a0b30eb6e014684d82101f3265 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 17 Dec 1999 00:21:09 +0000
Subject: no_comment

---
 rpm-find-leaves | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 rpm-find-leaves

(limited to 'rpm-find-leaves')

diff --git a/rpm-find-leaves b/rpm-find-leaves
new file mode 100644
index 00000000..30f3f2f1
--- /dev/null
+++ b/rpm-find-leaves
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+
+$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;
-- 
cgit v1.2.1