#!/bin/sh
# $Id: rpm-installed-duplicates,v 1.1 2009/04/27 04:24:25 friedman Exp $

rpm-pkg-list -s name,arch,version-release \
  | perl -ane ' next if $F[1] =~ /^(?:gpg-pubkey|kernel)/;
                $old = "$F[1].$F[3]";
                $this = "$F[1]-$F[2].$F[3]";
                print "$seen{$old}\t$this\n" if exists $seen{$old};
                $seen{$old} = $this; ' \
  | fmtcols -S '  =>  '

# eof