From: at@turbinal.org To: devel@altlinux.ru Subject: Re: [devel] perl-5.8.0-alt0.3 (important) Date: Wed, 16 Oct 2002 08:44:30 +0400 Message-ID: <20021016044430.GA19475@homestead.turbinal.org> (raw) In-Reply-To: <20021016014557.GA29249@homestead.turbinal.org> [-- Attachment #1: Type: text/plain, Size: 423 bytes --] On Wed, Oct 16, 2002 at 05:45:57AM +0400, at@turbinal.org wrote: > > В incoming заливается perl-5.8.0-alt0.3.nosrc.rpm. Залилось. :) > относительно perl. Для этого я написал скрипт, который можно также > использовать для анализа перловых зависимостей других пакетов. Скрипт > прилагается (но он ни на что не претендует; желающие должны его > доработать и обязательно об этом сообщить). В результате удалось Доработал. [-- Attachment #2: depend.pl --] [-- Type: text/plain, Size: 1328 bytes --] #!/usr/bin/perl # # check whether perl part of the package depends on perl-base only # use strict; sub whatsays($) { my $command = shift; local $_ = `$command`; $? and print qq(warning: $command\n\texecuted with $? status\n); my @parts = split; return wantarray ? @parts : $parts[0]; } my %cache; my $n_call = 0; sub whatprovides(@) { my $prov = shift; if ($cache{$prov}) { $n_call++; } else { my @pkgs = whatsays qq(rpm -q --whatprovides '$prov'); $cache{$prov} = \@pkgs; print "warning: $prov is provided by " . join(' AND ' => @pkgs) . "\n" if @pkgs > 1; } return @{$cache{$prov}}; } my @packages = @ARGV; my $base = whatsays qq(rpm -q 'perl-base'); foreach my $package (@packages) { $package = whatsays qq(rpm -q '$package'); my @files = whatsays qq(rpm -ql '$package' '$base' | sort | uniq); my $n = @files; print "checking whether perl part of $package package ($n files)\n\tdepends on $base only\n"; foreach my $file (@files) { my @req = map { /perl\(.+?\)/ ? $& :() } whatsays qq(/usr/lib/rpm/perl.req '$file'); foreach my $req (@req) { my @prov = whatprovides $req; print "file $file requires\n\t$req provided by @prov\n" unless grep { "@prov" =~ /\Q$_/ } ($base, $package); } } } print "whatprovides: " . keys(%cache) . " entries cached ($n_call fork+exec calls saved)\n";
next prev parent reply other threads:[~2002-10-16 4:44 UTC|newest] Thread overview: 31+ messages / expand[flat|nested] mbox.gz Atom feed top 2002-10-16 1:45 at 2002-10-16 4:44 ` at [this message] 2002-10-16 8:54 ` Dmitry V. Levin 2002-10-16 14:47 ` at 2002-10-16 15:31 ` Dmitry V. Levin 2002-10-16 8:39 ` Alexander Bokovoy 2002-10-16 9:09 ` Stanislav Ievlev 2002-10-16 8:50 ` Dmitry V. Levin 2002-10-16 8:56 ` Anton V. Boyarshinov 2002-10-16 14:19 ` at 2002-10-17 8:14 ` [devel] " Mikhail Zabaluev 2002-10-18 1:40 ` at 2002-10-18 22:26 ` Mikhail Zabaluev 2002-10-18 23:42 ` at 2002-10-19 9:38 ` Mikhail Zabaluev 2002-10-19 20:45 ` [devel] Re: perl ABI detection at find-requires stage at 2002-10-20 0:06 ` at 2002-10-21 23:05 ` Mikhail Zabaluev 2002-10-21 6:00 ` [devel] Re: perl-5.8.0-alt0.3 (important) Anton V. Boyarshinov 2002-10-21 19:26 ` Alexey I. Froloff 2002-10-22 8:20 ` Dmitry V. Levin 2002-10-21 20:16 ` [devel] Re: perl inc_version_list at 2002-10-21 22:52 ` [devel] Re: perl-5.8.0-alt0.3 (important) Mikhail Zabaluev 2002-10-22 6:25 ` Anton V. Boyarshinov 2002-10-22 13:08 ` Alexey Tourbin 2002-10-26 0:32 ` [devel] Re: perl thread safety at 2002-10-20 1:37 ` [devel] Re: perl/Junior at 2002-10-20 13:37 ` [devel] Re: perl-5.8.0-alt0.3 (important) Michael Shigorin 2002-10-21 2:12 ` at 2002-10-21 22:50 ` Mikhail Zabaluev 2002-10-21 3:01 ` at
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20021016044430.GA19475@homestead.turbinal.org \ --to=at@turbinal.org \ --cc=devel@altlinux.ru \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: link
ALT Linux Team development discussions This inbox may be cloned and mirrored by anyone: git clone --mirror http://lore.altlinux.org/devel/0 devel/git/0.git # If you have public-inbox 1.1+ installed, you may # initialize and index your mirror using the following commands: public-inbox-init -V2 devel devel/ http://lore.altlinux.org/devel \ devel@altlinux.org devel@altlinux.ru devel@lists.altlinux.org devel@lists.altlinux.ru devel@linux.iplabs.ru mandrake-russian@linuxteam.iplabs.ru sisyphus@linuxteam.iplabs.ru public-inbox-index devel Example config snippet for mirrors. Newsgroup available over NNTP: nntp://lore.altlinux.org/org.altlinux.lists.devel AGPL code for this site: git clone https://public-inbox.org/public-inbox.git