Content-Transfer-Encoding: 7bit
Content-Type: multipart/mixed; boundary="_----------=_166076137066950"
MIME-Version: 1.0
Date: Wed, 17 Aug 2022 18:36:10 +0000
From: "Roland Illig" <rillig@netbsd.org>
Subject: CVS commit: pkgsrc/pkgtools/lintpkgsrc/files
To: pkgsrc-changes@NetBSD.org
Reply-To: rillig@netbsd.org
Message-Id: <20220817183610.E7FF7FB1A@cvs.NetBSD.org>
Sender: pkgsrc-changes-owner@NetBSD.org
Precedence: bulk

This is a multi-part message in MIME format.

--_----------=_166076137066950
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Content-Type: text/plain; charset="US-ASCII"

Module Name:	pkgsrc
Committed By:	rillig
Date:		Wed Aug 17 18:36:10 UTC 2022

Modified Files:
	pkgsrc/pkgtools/lintpkgsrc/files: lintpkgsrc.pl

Log Message:
lintpkgsrc: cleanup: reduce syntactical verbosity


To generate a diff of this commit:
cvs rdiff -u -r1.114 -r1.115 pkgsrc/pkgtools/lintpkgsrc/files/lintpkgsrc.pl

Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.


--_----------=_166076137066950
Content-Disposition: inline
Content-Length: 3122
Content-Transfer-Encoding: binary
Content-Type: text/x-diff; charset=us-ascii

Modified files:

Index: pkgsrc/pkgtools/lintpkgsrc/files/lintpkgsrc.pl
diff -u pkgsrc/pkgtools/lintpkgsrc/files/lintpkgsrc.pl:1.114 pkgsrc/pkgtools/lintpkgsrc/files/lintpkgsrc.pl:1.115
--- pkgsrc/pkgtools/lintpkgsrc/files/lintpkgsrc.pl:1.114	Wed Aug 17 18:28:33 2022
+++ pkgsrc/pkgtools/lintpkgsrc/files/lintpkgsrc.pl	Wed Aug 17 18:36:10 2022
@@ -1,5 +1,5 @@
 #!@PERL5@
-# $NetBSD: lintpkgsrc.pl,v 1.114 2022/08/17 18:28:33 rillig Exp $
+# $NetBSD: lintpkgsrc.pl,v 1.115 2022/08/17 18:36:10 rillig Exp $
 
 # Written by David Brownlee <abs@netbsd.org>.
 #
@@ -564,7 +564,7 @@ sub parse_makefile_vars($file, $cwd = un
 	if ($file eq $conf_makeconf) {
 		$vars{LINTPKGSRC} = 'YES';
 	} else {
-		%vars = %{$default_vars};
+		%vars = %$default_vars;
 	}
 	$vars{BSD_PKG_MK} = 'YES';
 
@@ -725,7 +725,7 @@ sub get_default_makefile_vars() {
 	my ($vars);
 	if (-f $conf_makeconf &&
 	    ($vars = parse_makefile_vars($conf_makeconf, undef))) {
-		foreach my $var (keys %{$vars}) {
+		foreach my $var (keys %$vars) {
 			$default_vars->{$var} = $vars->{$var};
 		}
 	}
@@ -746,12 +746,11 @@ sub get_default_makefile_vars() {
 	}
 
 	# Extract some variables from bsd.pkg.mk
-	my ($mkvars);
-	$mkvars = parse_makefile_vars(
+	my $mkvars = parse_makefile_vars(
 	    "$default_vars->{PKGSRCDIR}/mk/bsd.pkg.mk",
 	    "$default_vars->{PKGSRCDIR}/mk/scripts"
 	);
-	foreach my $varname (keys %{$mkvars}) {
+	foreach my $varname (keys %$mkvars) {
 		if ($varname =~ /_REQD$/ || $varname eq 'EXTRACT_SUFX') {
 			$default_vars->{$varname} = $mkvars->{$varname};
 		}
@@ -794,7 +793,7 @@ sub list_installed_packages() {
 # List top level pkgsrc categories
 #
 sub list_pkgsrc_categories($pkgsrcdir) {
-	my (@categories);
+	my @categories;
 
 	opendir(BASE, $pkgsrcdir) || die("Unable to opendir($pkgsrcdir): $!");
 	@categories = grep { !/^\./ && -f "$pkgsrcdir/$_/Makefile" }
@@ -1075,11 +1074,9 @@ sub scan_pkgsrc_makefiles($pkgsrcdir) {
 	}
 
 	if (!$opt{L}) {
-		my ($len);
-
-		$_ = scalar $pkgdata->pkgvers_all . ' packages';
-		$len = @categories - length($_);
-		verbose("\b" x @categories, $_, ' ' x $len, "\b" x $len, "\n");
+		my $summary = scalar $pkgdata->pkgvers_all . ' packages';
+		my $len = @categories - length($summary);
+		verbose("\b" x @categories, $summary, ' ' x $len, "\b" x $len, "\n");
 	}
 }
 
@@ -1182,14 +1179,13 @@ sub check_pkgsrc_distfiles_vs_distinfo($
 
 	# check each file in $pkgdistdir
 	find({ wanted => sub {
-		my ($dist);
 		if (-f $File::Find::name) {
 			my $distn = $File::Find::name;
 			$distn =~ s/$pkgdistdir\/?//g;
 			#pkg/47516 ignore cvs dirs
 			return if $distn =~ m/^\.cvsignore/;
 			return if $distn =~ m/^CVS\//;
-			if (!defined($dist = $distfiles{$distn})) {
+			if (!defined(my $dist = $distfiles{$distn})) {
 				$unref_distfiles{$distn} = 1;
 			} else {
 				push @{$sumfiles{$dist->{algorithm}}}, $distn;
@@ -1297,8 +1293,7 @@ sub check_prebuilt_packages() {
 
 		$pkg = canonicalize_pkgname($pkg);
 
-		my ($pkgs);
-		if ($pkgs = $pkgdata->pkgs($pkg)) {
+		if (my $pkgs = $pkgdata->pkgs($pkg)) {
 			my ($pkgver) = $pkgs->pkgver($ver);
 
 			if (!defined $pkgver) {


--_----------=_166076137066950--