[devel] buildrootcmp

[=?iso-8859-1?q?at_=CE=C1_turbinal=2Eorg?=]

Люди, признавайтесь, у нас есть такой скрипт или нет? Я не нашёл.
Интересно, кто как проверяет комплектацию пакетов.

Sample usage:

$ buildrootcmp /var/tmp/perl-buildroot ~/RPM/RPMS/i686/perl-*5.8.0-alt0.3.i686.rpm
      3 /usr/lib/perl5
      3 /usr/lib/perl5/Class
      3 /usr/lib/perl5/Encode
      1 /usr/lib/perl5/Encode/Changes.e2x
      1 /usr/lib/perl5/Encode/ConfigLocal_PM.e2x
      1 /usr/lib/perl5/Encode/Makefile_PL.e2x
      1 /usr/lib/perl5/Encode/README.e2x
      3 /usr/lib/perl5/File
      3 /usr/lib/perl5/File/Spec
      3 /usr/lib/perl5/Getopt
      3 /usr/lib/perl5/i386-linux
      3 /usr/lib/perl5/i386-linux/asm
      3 /usr/lib/perl5/i386-linux/auto
      3 /usr/lib/perl5/i386-linux/auto/DynaLoader
      3 /usr/lib/perl5/i386-linux/auto/Sys
      3 /usr/lib/perl5/i386-linux/B
      3 /usr/lib/perl5/i386-linux/bits
      3 /usr/lib/perl5/i386-linux/linux
      1 /usr/lib/perl5/i386-linux/machine
      3 /usr/lib/perl5/i386-linux/sys
      3 /usr/lib/perl5/i386-linux/Sys
      3 /usr/lib/perl5/Math
      4 /usr/lib/perl5/Pod
      3 /usr/lib/perl5/Term
      3 /usr/lib/perl5/Test
      3 /usr/lib/perl5/Text
      3 /usr/lib/perl5/Tie
      3 /usr/lib/perl5/Time
      3 /usr/lib/perl5/unicore
$

Упс, несколько файлов потеряли.

----------- следующая часть -----------
#!/bin/sh -e
#
# Compare %buildroot against the derivable packages
#

BUILDROOT="$1"; shift
(	rpm -qpl $@ || rpm -ql $@; cd "$BUILDROOT";
	find . -mindepth 1 | cut -c 2- | fgrep -vx "$(rpm -ql filesystem)" 
) | sort | uniq -c | awk '{if($1!=2)print}'