On Mon, Dec 06, 2004 at 05:06:18AM +0300, Alexey Tourbin wrote:
> Я опять переделал rpm-build-perl.  Согласно проведённому мной
> исследованию, новая версия rpm-build-perl на 42% лучше предыдущей. :)

Кажется, это щастье ушло в сизиф.
Меж тем у меня уже есть две головоломки для почтенной публики.

1)

$ /usr/lib/rpm/perl.prov /usr/lib/perl5/vendor_perl/Pod/POM.pm
perl(Pod/POM.pm) = 0.170
$ /usr/lib/rpm/perl.prov /usr/lib/perl5/vendor_perl/Net/SNMP.pm
perl(Net/SNMP.pm) = 4.001
$ /usr/lib/rpm/perl.prov /usr/lib/perl5/vendor_perl/Net/SNMP.pm /usr/lib/perl5/vendor_perl/Pod/POM.pm
# failed to extract version: $VERSION = 0.17;
perl(Pod/POM.pm)
perl(Net/SNMP.pm) = 4.001
$

Вопрос на пару трубок: почему в последнем случае не извлеклась версия?

2)

$ /usr/lib/rpm/perl.prov /usr/lib/perl5/vendor_perl/i386-linux/Gtk2/Gdk/Keysyms.pm
perl(Gtk2/Gdk/Keysyms.pm)
$ /usr/lib/rpm/perl.prov /usr/lib/perl5/vendor_perl/i386-linux/Gtk2/GladeXML.pm
perl(Gtk2/GladeXML.pm) = 1.0
$ /usr/lib/rpm/perl.prov /usr/lib/perl5/vendor_perl/i386-linux/Gtk2/Gdk/Keysyms.pm /usr/lib/perl5/vendor_perl/i386-linux/Gtk2/GladeXML.pm
perl(Gtk2/Gdk/Keysyms.pm)
perl(Gtk2/GladeXML.pm)
$

Вопрос на одну трубку: почему в последнем случае не извлеклась версия?

Скрипт /usr/lib/rpm/perl.prov очень простой -- около 50 строк кода по
существу.  В лучшие времена я бы даже объявил приз за каждую честно
разгаданную трубку. ;)