From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@turbinal.org>
From: at@turbinal.org
Date: Wed, 30 Oct 2002 02:27:42 +0300
To: devel@altlinux.ru
Message-ID: <20021029232742.GA18900@homestead.turbinal.org>
Mail-Followup-To: devel@altlinux.ru
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Subject: [devel] /usr/lib/rpm/perl.req -- =?koi8-r?B?wcjU?=
 =?koi8-r?B?1c7HIQ==?=
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/20021029232742.GA18900@homestead.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>

Я вчитался в perl.req. Выяснилось, что он натурально зарубает все
перловые зависимости, которые не предоставляются в среде сборки (а также
самим пакетом).  Например, если в среде сборки нет ничего кроме
perl-base и perl-devel, тогда в requires у пакета окажутся зависимости
вида perl(XXX.pm) только из perl-base и perl-devel.

Из-за этого все зависимости, в сущности, идут лесом. Даже если в среде
сборки установлен полный комплект perl-* пакетов дистрибутива, это,
вообще говоря, никак не гарантирует работоспособность пакетов.

Как удалось выяснить, это ALT-specific (в rpm-4.0.4-19mdk такого нет).

Какие будут мнения по этому вопросу?


foreach $module (sort keys %require) {

  # search for the file to be installed in the system or in this same package

  my $found = 0;
  for (@perl_inc) {
    if (-e "$_/$module") {
      $found = 1;
      last;
    }
  }
  next unless $found;

  if (length($require{$module}) == 0) {
    print "perl($module)\n";
  } else {
    print "perl($module) >= $require{$module}\n";
  }
}