[lintian] 01/01: c/r-*: Fix perlcritic warnings
This is an automated email from the git hooks/post-receive script.
nthykier pushed a commit to branch master
in repository lintian.
commit f7e9604a0f69b9f6a37bca5b1cf3274f8add1b69
Author: Niels Thykier <niels@thykier.net>
Date: Sat Apr 29 18:47:48 2017 +0000
c/r-*: Fix perlcritic warnings
Signed-off-by: Niels Thykier <niels@thykier.net>
---
commands/reporting-harness.pm | 2 +-
commands/reporting-html-reports.pm | 2 +-
commands/reporting-sync-state.pm | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/commands/reporting-harness.pm b/commands/reporting-harness.pm
index b525b4d..fb0694d 100755
--- a/commands/reporting-harness.pm
+++ b/commands/reporting-harness.pm
@@ -127,7 +127,7 @@ sub required_cfg_value {
sub required_cfg_list_value {
my (@keys) = @_;
my $v = required_cfg_value(@keys);
- if (not defined($v) || ref($v) ne 'ARRAY') {
+ if (not defined($v) or ref($v) ne 'ARRAY') {
my $k = join('.', @keys);
die("Invalid configuration: ${k} must be a (possibly empty) list\n");
}
diff --git a/commands/reporting-html-reports.pm b/commands/reporting-html-reports.pm
index 5b9833e..4d663e2 100644
--- a/commands/reporting-html-reports.pm
+++ b/commands/reporting-html-reports.pm
@@ -138,7 +138,7 @@ sub required_cfg_value {
sub required_cfg_non_empty_list_value {
my (@keys) = @_;
my $v = required_cfg_value(@keys);
- if (not defined($v) || ref($v) ne 'ARRAY' || scalar(@{$v}) < 1) {
+ if (not defined($v) or ref($v) ne 'ARRAY' or scalar(@{$v}) < 1) {
my $k = join('.', @keys);
die("Invalid configuration: ${k} must be a non-empty list\n");
}
diff --git a/commands/reporting-sync-state.pm b/commands/reporting-sync-state.pm
index 0ed5888..7bd9b27 100644
--- a/commands/reporting-sync-state.pm
+++ b/commands/reporting-sync-state.pm
@@ -80,7 +80,7 @@ sub required_cfg_value {
sub required_cfg_non_empty_list_value {
my (@keys) = @_;
my $v = required_cfg_value(@keys);
- if (not defined($v) || ref($v) ne 'ARRAY' || scalar(@{$v}) < 1) {
+ if (not defined($v) or ref($v) ne 'ARRAY' or scalar(@{$v}) < 1) {
my $k = join('.', @keys);
die("Invalid configuration: ${k} must be a non-empty list\n");
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/lintian/lintian.git
Reply to: