kpriv/pkgsrc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lintpkgsrc: clean up code for listing required packages

Browse source
This commit is contained in:
rillig 2022-08-15 21:09:13 +00:00
parent 57895f29e3
commit 4fe7a2785a
1 changed files with 5 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
pkgtools/lintpkgsrc/files/lintpkgsrc.pl
View file

@ -1,5 +1,5 @@
#!@PERL5@ #!@PERL5@
# $NetBSD: lintpkgsrc.pl,v 1.95 2022/08/14 12:54:01 rillig Exp $ # $NetBSD: lintpkgsrc.pl,v 1.96 2022/08/15 21:09:13 rillig Exp $
# Written by David Brownlee <abs@netbsd.org>. # Written by David Brownlee <abs@netbsd.org>.
# #
@ -1574,20 +1574,11 @@ sub check_outdated_installed_packages($pkgsrcdir) {
foreach my $pkgver (@update) { foreach my $pkgver (@update) {
my $pkgbase = $pkgver->pkgbase; my $pkgbase = $pkgver->pkgbase;
print "$pkgbase:"; print "$pkgbase:";
if (open(PKGINFO, "$conf_pkg_info -R $pkgbase |")) { open(PKGINFO, "$conf_pkg_info -q -R $pkgbase |") or die;
my ($list); while (<PKGINFO>) {
print " $1" if /^(.*?)-\d/;
while (<PKGINFO>) {
if (/Required by:/) {
$list = 1;
} elsif ($list) {
chomp;
s/-\d.*//;
print " $_";
}
}
close(PKGINFO);
} }
close(PKGINFO);
print "\n"; print "\n";
} }