[devel] Re: /usr/lib/rpm/perl.req -- patch

[Alexey Tourbin <at@turbinal.org>]

[-- Attachment #1: Type: text/plain, Size: 1455 bytes --]

On Sat, Nov 02, 2002 at 05:09:11PM +0300, Mikhail Zabaluev wrote:
> Хм. Если при этом как-то отлавливать имена ненайденных файлов,
> возможно, будет полное покрытие всего, что требуется.

OK, я подумаю/попробую. По идее, эти скриты нужно переписать с нуля,
но сейчас этого делать уже нельзя.

> > $ perl -MO=Xref,r /usr/lib/perl5/find.pl | grep ^File
> > /usr/lib/perl5/find.pl syntax OK
> > File
> > File /usr/lib/perl5/Exporter.pm
> > File /usr/lib/perl5/File/Basename.pm
> > File /usr/lib/perl5/find.pl
> > File /usr/lib/perl5/i386-linux/DynaLoader.pm
> > File /usr/lib/perl5/i386-linux/XSLoader.pm
> > File @EXPORT
> > File `x
> > File ?FФ*юяяя8?
> > File ??pг?*
> > File ??
> > File ИИpг?*
> > $
> > 
> > Я не хочу, чтобы последние несколько "файлов" попали в зависимости.
> > Что-то сломано?
> 
> Не знаю, perl 5.6.1 такого не выдаёт.

Главное же, что find.pl выглядит так:

$ grep '^[^#]' /usr/lib/perl5/find.pl
use File::Find ();
*name           = *File::Find::name;
*prune          = *File::Find::prune;
*dir            = *File::Find::dir;
*topdir         = *File::Find::topdir;
*topdev         = *File::Find::topdev;
*topino         = *File::Find::topino;
*topmode        = *File::Find::topmode;
*topnlink       = *File::Find::topnlink;
sub find {
    &File::Find::find(\&wanted, @_);
    }
1;
$

Т.е. Xref вытягивает слишком косвенные зависимости, а основные
(File::Find) не вытягивает. Боюсь, что где-то что-то сломано. Попробую
разобраться.


[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]