my ($line, @flags) = @_;
foreach my $flag (@flags) {
- return 1 if $line =~ /\s$flag(?:\s|\\|$)/;
+ return 1 if $line =~ /\s$flag(?:\s|\\)/;
}
return 0;
my @missing_flags = ();
foreach my $flag (@flags) {
- if ($line !~ /\s$flag(?:\s|\\|$)/) {
+ if ($line !~ /\s$flag(?:\s|\\)/) {
push @missing_flags, $flag;
}
}
- if (scalar @missing_flags == 0) {
- return 1;
- }
+ return 1 if scalar @missing_flags == 0;
@{$missing_flags_ref} = @missing_flags;
return 0;
}
}
- # We skip over unimportant lines at the beginning to prevent false
- # positives.
+ # We skip over unimportant lines at the beginning of the log to prevent
+ # false positives.
$start = 1 if $line =~ /^dpkg-buildpackage:/;
next if not $start;
# Remove all ANSI color sequences which are sometimes used in non-verbose
# builds.
$line = Term::ANSIColor::colorstrip($line);
- # Also strip '\0xf' (delete previous character), used by Elink's build
+ # Also strip '\0xf' (delete previous character), used by Elinks' build
# system.
$line =~ s/\x0f//g;
# And "ESC(B" which seems to be used on armhf and hurd (not sure what it