diff options
author | rillig <rillig@pkgsrc.org> | 2022-08-13 09:33:43 +0000 |
---|---|---|
committer | rillig <rillig@pkgsrc.org> | 2022-08-13 09:33:43 +0000 |
commit | 1c9f8005bc39dc40dd18f203141b917af8a08abe (patch) | |
tree | 76871bcfe612e1e407de2121ce21deb003c65a1f /pkgtools | |
parent | 40545f0c222b3a0df8002d7337deca74fabce66c (diff) | |
download | pkgsrc-1c9f8005bc39dc40dd18f203141b917af8a08abe.tar.gz |
lintpkgsrc: cleanup: reduce line noise
Diffstat (limited to 'pkgtools')
-rwxr-xr-x | pkgtools/lintpkgsrc/files/lintpkgsrc.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/pkgtools/lintpkgsrc/files/lintpkgsrc.pl b/pkgtools/lintpkgsrc/files/lintpkgsrc.pl index 8cd41eb6aa8..64fde875e72 100755 --- a/pkgtools/lintpkgsrc/files/lintpkgsrc.pl +++ b/pkgtools/lintpkgsrc/files/lintpkgsrc.pl @@ -1,6 +1,6 @@ #!@PERL5@ -# $NetBSD: lintpkgsrc.pl,v 1.81 2022/08/12 22:45:14 rillig Exp $ +# $NetBSD: lintpkgsrc.pl,v 1.82 2022/08/13 09:33:43 rillig Exp $ # Written by David Brownlee <abs@netbsd.org>. # @@ -540,7 +540,7 @@ sub parse_makefile_vars($file, $cwd = undef) { # if (m#^ \. \s* if(|def|ndef) \s+ (.*) #x) { my $type = $1; - if ($if_false[$#if_false]) { + if ($if_false[-1]) { push @if_false, 2; } elsif ($type eq '') { @@ -557,23 +557,23 @@ sub parse_makefile_vars($file, $cwd = undef) { debug("$file: .if$type (! @if_false)\n"); } elsif (m#^ \. \s* elif \s+ (.*)#x && @if_false) { - if ($if_false[$#if_false] == 0) { - $if_false[$#if_false] = 2; - } elsif ($if_false[$#if_false] == 1 + if ($if_false[-1] == 0) { + $if_false[-1] = 2; + } elsif ($if_false[-1] == 1 && !parse_eval_make_false($1, \%vars)) { - $if_false[$#if_false] = 0; + $if_false[-1] = 0; } debug("$file: .elif (! @if_false)\n"); } elsif (m#^ \. \s* else \b #x && @if_false) { - $if_false[$#if_false] = $if_false[$#if_false] == 1 ? 0 : 1; + $if_false[-1] = $if_false[-1] == 1 ? 0 : 1; debug("$file: .else (! @if_false)\n"); } elsif (m#^\. \s* endif \b #x) { pop(@if_false); debug("$file: .endif (! @if_false)\n"); - } elsif ($if_false[$#if_false]) { + } elsif ($if_false[-1]) { # Skip branches whose condition evaluated to false. } elsif (m#^\. \s* include \s+ "([^"]+)" #x) { |