diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-17 00:21:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-17 00:21:09 +0000 |
| commit | 2b6d115da4ba39a0b30eb6e014684d82101f3265 (patch) | |
| tree | 7ead586efca6413473c0b880d976f3dc5d7f2849 /rpm-find-leaves | |
| parent | 8bc2804dffe993ded66f55ec4a6d13d9e8ed0bd7 (diff) | |
| download | urpmi-2b6d115da4ba39a0b30eb6e014684d82101f3265.tar urpmi-2b6d115da4ba39a0b30eb6e014684d82101f3265.tar.gz urpmi-2b6d115da4ba39a0b30eb6e014684d82101f3265.tar.bz2 urpmi-2b6d115da4ba39a0b30eb6e014684d82101f3265.tar.xz urpmi-2b6d115da4ba39a0b30eb6e014684d82101f3265.zip | |
no_comment
Diffstat (limited to 'rpm-find-leaves')
| -rw-r--r-- | rpm-find-leaves | 7 |
1 files changed, 7 insertions, 0 deletions
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; |