$ rpm -q perl-RPM perl-RPM-1.49-alt1 в FILELINKTOS нет значений. вот скрипт для проверки. -------------------------- #!/usr/bin/perl -w use RPM::Header; use Data::Dumper; my $rhref = new RPM::Header $ARGV[0]; $d = Data::Dumper->new([$rhref]); $d->Purity(1)->Terse(1)->Deepcopy(1); print $d->Dump; ---------------------- натравливаем его на пакет, богатый симлинками, ----------------------- 'FILELINKTOS' => [ '', '', ... и ничего нет :(
У меня есть. Давайте конкретный пакет с симлинками посмотрим.
Created attachment 2512 [details] output of Dump
вот пример, где это заметил. Важно: x86_64 $ uname -a Linux breeze.localdomain 2.6.18-ovz-smp-alt20 #1 SMP Fri Jan 18 19:40:47 MSK 2008 x86_64 GNU/Linux $ rpm -q rpm rpm-4.0.4-alt77.M40.1 $ perl t1 /var/ftp/pub/Linux/ALT/Sisyphus/files/noarch/RPMS/repocop-0.06-alt1.1.noarch.rpm > repocop-0.06-alt1.1.noarch.dump
В пакете repocop-0.06-alt1.1.noarch.rpm симлинков нет. 64078148479918bd5b505820a2c06fa8 /ALT/Sisyphus/files/noarch/RPMS/repocop-0.06-alt1.1.noarch.rpm
Извиняюсь. Были, да сплыли, как перешел на Makefile.PL, а я не заметил. Ну что ж, одним багом меньше! заодно процитирую тамошние =head1 ACKNOWLEGEMENTS To Alexey Torbin <at@altlinux.org>, whose qa-robot package had a strong influence on repocop.