[pkgsrc/trunk]: pkgsrc/pkgtools/lintpkgsrc/files lintpkgsrc: cleanup: remove ...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/1342fedef35e
branches:  trunk
changeset: 383329:1342fedef35e
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Wed Aug 17 18:51:43 2022 +0000

description:
lintpkgsrc: cleanup: remove redundant punctuation around declarations

diffstat:

 pkgtools/lintpkgsrc/files/lintpkgsrc.pl |  24 +++++++++++-------------
 1 files changed, 11 insertions(+), 13 deletions(-)

diffs (99 lines):

diff -r c6599f49951a -r 1342fedef35e pkgtools/lintpkgsrc/files/lintpkgsrc.pl
--- a/pkgtools/lintpkgsrc/files/lintpkgsrc.pl   Wed Aug 17 18:51:09 2022 +0000
+++ b/pkgtools/lintpkgsrc/files/lintpkgsrc.pl   Wed Aug 17 18:51:43 2022 +0000
@@ -1,5 +1,5 @@
 #!@PERL5@
-# $NetBSD: lintpkgsrc.pl,v 1.117 2022/08/17 18:48:09 rillig Exp $
+# $NetBSD: lintpkgsrc.pl,v 1.118 2022/08/17 18:51:43 rillig Exp $
 
 # Written by David Brownlee <abs%netbsd.org@localhost>.
 #
@@ -138,7 +138,7 @@
 sub load($class, $fname) {
        open(STORE, '<', $fname)
            or die("Cannot read package data from $fname: $!\n");
-       my ($pkgver);
+       my $pkgver;
        my $self = $class->new();
        while (defined(my $line = <STORE>)) {
                chomp($line);
@@ -222,10 +222,9 @@
 #TODO this entire sub should be replaced with direct calls to
 #     File::Find
 sub listdir($base, $dir = undef) {
-       my ($thisdir);
        my (@list, @thislist);
 
-       $thisdir = $base;
+       my $thisdir = $base;
        if (defined $dir) {
                $thisdir .= "/$dir";
                $dir .= '/';
@@ -520,7 +519,7 @@
                        $to =~ s/\\(\d)/\$$1/g; # Change \1 etc to $1
                        $to =~ s/\&/\$&/g;
 
-                       my ($notfirst);
+                       my $notfirst;
                        if ($global =~ s/1//) {
                                # FIXME: The modifier '1' applies to the first
                                #  occurrence in any word, it doesn't have to
@@ -725,9 +724,8 @@
        $default_vars->{LOCALBASE} = $conf_pkgsrcdir;
        $default_vars->{X11BASE} = $conf_x11base;
 
-       my ($vars);
        if (-f $conf_makeconf &&
-           ($vars = parse_makefile_vars($conf_makeconf, undef))) {
+           (my $vars = parse_makefile_vars($conf_makeconf, undef))) {
                foreach my $var (keys %$vars) {
                        $default_vars->{$var} = $vars->{$var};
                }
@@ -977,7 +975,7 @@
                        close(WTR) or die;
                        my @errors = <ERR>;
                        close(ERR) or die;
-                       my ($makepkgname) = <RDR>;
+                       my $makepkgname = <RDR>;
                        close(RDR) or die;
                        wait;
                        chomp @errors;
@@ -1159,9 +1157,9 @@
 # files in the packages.
 sub check_pkgsrc_distfiles_vs_distinfo($pkgsrcdir, $pkgdistdir, $check_unref,
                                       $check_distinfo) {
-       my (@categories);
+       my @categories;
        my (%distfiles, %sumfiles, @distwarn, $numpkg);
-       my (%unref_distfiles);
+       my %unref_distfiles;
 
        @categories = list_pkgsrc_categories($pkgsrcdir);
 
@@ -1297,7 +1295,7 @@
                $pkg = canonicalize_pkgname($pkg);
 
                if (my $pkgs = $pkgdata->pkgs($pkg)) {
-                       my ($pkgver) = $pkgs->pkgver($ver);
+                       my $pkgver = $pkgs->pkgver($ver);
 
                        if (!defined $pkgver) {
                                if ($opt{p}) {
@@ -1328,7 +1326,7 @@
 
                $prebuilt_pkgdir_cache{"$File::Find::dir/$_"} = 1;
                if (-l $_) {
-                       my ($dest) = readlink($_);
+                       my $dest = readlink($_);
 
                        if (substr($dest, 0, 1) ne '/') {
                                $dest = "$File::Find::dir/$dest";
@@ -1494,7 +1492,7 @@
 }
 
 sub list_packages_not_in_SUBDIR($pkgsrcdir) {
-       my (%in_subdir);
+       my %in_subdir;
        foreach my $cat (list_pkgsrc_categories($pkgsrcdir)) {
                my $makefile = "$pkgsrcdir/$cat/Makefile";
                my $vars = parse_makefile_vars($makefile, undef);