[lintian] 01/02: perltidy
This is an automated email from the git hooks/post-receive script.
lamby pushed a commit to branch master
in repository lintian.
commit f41a95b4b0c1318dfa3fd86beb8ca00fb4a3732c
Author: Chris Lamb <lamby@debian.org>
Date: Thu Oct 26 19:28:17 2017 +0100
perltidy
---
checks/control-file.pm | 6 ++++--
checks/fields.pm | 3 ++-
checks/files.pm | 2 +-
checks/init.d.pm | 6 ++++--
4 files changed, 11 insertions(+), 6 deletions(-)
diff --git a/checks/control-file.pm b/checks/control-file.pm
index a8716b7..c60762e 100644
--- a/checks/control-file.pm
+++ b/checks/control-file.pm
@@ -133,8 +133,10 @@ sub run {
foreach my $bin (@package_names) {
my $bfields = $info->binary_field($bin);
tag 'build-info-in-binary-control-file-section', "Package $bin"
- if (first { $bfields->{"build-$_"} }
- qw(depends depends-indep conflicts conflicts-indep));
+ if (
+ first { $bfields->{"build-$_"} }
+ qw(depends depends-indep conflicts conflicts-indep)
+ );
foreach my $field (keys %$bfields) {
tag 'binary-control-field-duplicates-source',
"field \"$field\" in package $bin"
diff --git a/checks/fields.pm b/checks/fields.pm
index 39fc18f..b90e205 100644
--- a/checks/fields.pm
+++ b/checks/fields.pm
@@ -762,7 +762,8 @@ sub run {
if ($field eq 'conflicts' && $d_version->[0]);
tag 'obsolete-relation-form', "$field: $part_d_orig"
- if ($d_version && any { $d_version->[0] eq $_ }
+ if (
+ $d_version && any { $d_version->[0] eq $_ }
('<', '>'));
tag 'bad-version-in-relation', "$field: $part_d_orig"
diff --git a/checks/files.pm b/checks/files.pm
index 9f8c18d..13d461d 100644
--- a/checks/files.pm
+++ b/checks/files.pm
@@ -1169,7 +1169,7 @@ sub run {
read($fd, my $magic, 4);
close($fd);
tag 'package-installs-java-bytecode', $file
- if $magic eq "\xCA\xFE\xBA\xBE";
+ if $magic eq "\xCA\xFE\xBA\xBE";
}
# ---------------- /usr/lib/site-python
diff --git a/checks/init.d.pm b/checks/init.d.pm
index 9b13c1d..4c90c2e 100644
--- a/checks/init.d.pm
+++ b/checks/init.d.pm
@@ -436,8 +436,10 @@ sub check_init {
if (defined $lsb{'default-stop'} && length($lsb{'default-stop'})) {
my @required = split(' ', $lsb{'required-stop'} || '');
if ($needs_fs) {
- if (none { /^(?:\$(?:local|remote)_fs|\$all|umountn?fs)\z/ }
- @required) {
+ if (
+ none { /^(?:\$(?:local|remote)_fs|\$all|umountn?fs)\z/ }
+ @required
+ ) {
tag 'init.d-script-missing-dependency-on-local_fs',
"${initd_path}: required-stop";
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git
Reply to: