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

Fixed indentation level in checkline_mk_vartype.

Browse source
This commit is contained in:
rillig 2006-05-31 08:10:45 +00:00
parent 69e5762c65
commit ef3ee853a6
1 changed files with 32 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
pkgtools/pkglint/files/pkglint.pl
View file

@ -1,5 +1,5 @@
#! @PERL@ #! @PERL@
# $NetBSD: pkglint.pl,v 1.592 2006/05/31 06:35:52 rillig Exp $ # $NetBSD: pkglint.pl,v 1.593 2006/05/31 08:10:45 rillig Exp $
# #
# pkglint - static analyzer and checker for pkgsrc packages # pkglint - static analyzer and checker for pkgsrc packages
@ -4062,42 +4062,42 @@ sub checkline_mk_vartype($$$$$) {
} }
} }
if (!defined($type)) { if (!defined($type)) {
# Cannot check anything if the type is not known. # Cannot check anything if the type is not known.
} elsif ($op eq "!=") { } elsif ($op eq "!=") {
$opt_debug and $line->log_info("Use of !=: ${value}"); $opt_debug and $line->log_info("Use of !=: ${value}");
} elsif ($type->kind_of_list != LK_NONE) { } elsif ($type->kind_of_list != LK_NONE) {
my (@words, $rest); my (@words, $rest);
if ($type->kind_of_list == LK_INTERNAL) {
@words = split(qr"\s+", $value);
$rest = "";
} else {
@words = ();
$rest = $value;
while ($rest =~ s/^$regex_shellword//) {
my ($word) = ($1);
last if ($word =~ qr"^#");
push(@words, $1);
}
}
foreach my $word (@words) {
checkline_mk_vartype_basic($line, $varname, $type->basic_type, $op, $word, $comment, true);
if ($type->kind_of_list != LK_INTERNAL) {
checkline_mk_shellword($line, $word, true);
}
}
if ($rest !~ qr"^\s*$") {
$opt_debug and $line->log_warning("Invalid shell word \"${value}\" at the end.");
}
if ($type->kind_of_list == LK_INTERNAL) {
@words = split(qr"\s+", $value);
$rest = "";
} else { } else {
checkline_mk_vartype_basic($line, $varname, $type->basic_type, $op, $value, $comment, !type_should_be_quoted($type)); @words = ();
$rest = $value;
while ($rest =~ s/^$regex_shellword//) {
my ($word) = ($1);
last if ($word =~ qr"^#");
push(@words, $1);
}
} }
foreach my $word (@words) {
checkline_mk_vartype_basic($line, $varname, $type->basic_type, $op, $word, $comment, true);
if ($type->kind_of_list != LK_INTERNAL) {
checkline_mk_shellword($line, $word, true);
}
}
if ($rest !~ qr"^\s*$") {
$opt_debug and $line->log_warning("Invalid shell word \"${value}\" at the end.");
}
} else {
checkline_mk_vartype_basic($line, $varname, $type->basic_type, $op, $value, $comment, !type_should_be_quoted($type));
}
} }
sub checkline_mk_varassign($$$$$) { sub checkline_mk_varassign($$$$$) {