From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@turbinal.org>
Date: Sat, 2 Nov 2002 18:18:55 +0300
From: Alexey Tourbin <at@turbinal.org>
To: devel@altlinux.ru
Message-ID: <20021102151855.GB7349@homestead.turbinal.org>
Mail-Followup-To: devel@altlinux.ru
References: <20021029232742.GA18900@homestead.turbinal.org> <20021030234453.GA6989@homestead.turbinal.org> <20021102094958.GD6621@mhz.mikhail.zabaluev.name> <20021102140112.GA3045@homestead.turbinal.org> <20021102140911.GA30183@mhz.mikhail.zabaluev.name>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="1LKvkjL3sHcu1TtY"
Content-Disposition: inline
In-Reply-To: <20021102140911.GA30183@mhz.mikhail.zabaluev.name>
Subject: [devel] Re: /usr/lib/rpm/perl.req -- patch
Sender: devel-admin@altlinux.ru
Errors-To: devel-admin@altlinux.ru
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.0.9
Precedence: bulk
Reply-To: devel@altlinux.ru
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Id: <devel.altlinux.ru>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
List-Archive: <http://altlinux.ru/pipermail/devel/>
Archived-At: <http://lore.altlinux.org/devel/20021102151855.GB7349@homestead.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

--1LKvkjL3sHcu1TtY
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

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) не вытягивает. Боюсь, что где-то что-то сломано. Попробую
разобраться.


--1LKvkjL3sHcu1TtY
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQE9w+zfDhJH5ZpJBTARAgisAJ9UlQuOT1EU3R/G85Nj6Yf2XubO+QCeI48c
ZrxHFaNhafuXRmVk1tc4lGU=
=nqDa
-----END PGP SIGNATURE-----

--1LKvkjL3sHcu1TtY--