diff options
| author | Dominique Dumont <dod@debian.org> | 2021-03-20 18:50:05 +0100 |
|---|---|---|
| committer | Dominique Dumont <dod@debian.org> | 2021-03-21 18:54:41 +0100 |
| commit | a2e1ad5c66453209e33124111a911e95d330f2f6 (patch) | |
| tree | 9f20713c7e8592c62015e3f8acfd7c6aa8a925d9 | |
| parent | 5bc92fad2f82fa07f8ad28312395d6d838638701 (diff) | |
avoid undef warning
when there's no debian/source/lintain-overrides file
| -rw-r--r-- | lib/Config/Model/Dpkg/Lintian/Overrides.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Config/Model/Dpkg/Lintian/Overrides.pm b/lib/Config/Model/Dpkg/Lintian/Overrides.pm index 74881e93..01915f0e 100644 --- a/lib/Config/Model/Dpkg/Lintian/Overrides.pm +++ b/lib/Config/Model/Dpkg/Lintian/Overrides.pm @@ -63,6 +63,8 @@ around _check_value => sub ( $orig, $self, %args ) { my ($ok, $value, $error, $warn) = $self->$orig( %args ); + return ($ok, $value, $error, $warn) unless $value; + my @lines = split /\n/, $value; foreach my $line (@lines) { next if $line =~ /^#/; |