[libconfig-model-dpkg-perl] 01/04: fix bogus change shown by cme fix
dod at debian.org
dod at debian.org
Wed Jan 18 17:31:24 UTC 2017
This is an automated email from the git hooks/post-receive script.
dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.
commit 18282c1ba758c9b9df616eaf32f1d652fd9f2323
Author: Dominique Dumont <dod at debian.org>
Date: Wed Jan 18 12:22:04 2017 +0100
fix bogus change shown by cme fix
no need to push empty items in @comment or @notes arrays
---
lib/Config/Model/Backend/DpkgStoreRole.pm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/lib/Config/Model/Backend/DpkgStoreRole.pm b/lib/Config/Model/Backend/DpkgStoreRole.pm
index 8f6ec06..accddbf 100644
--- a/lib/Config/Model/Backend/DpkgStoreRole.pm
+++ b/lib/Config/Model/Backend/DpkgStoreRole.pm
@@ -38,7 +38,7 @@ sub store_section_list_element ($self, $logger, $list_obj, $check, $v_ref) {
}
}
else {
- push @list_comment, $v_info;
+ push @list_comment, $v_info if $v_info;
}
}
$list_obj->annotation(@list_comment) if @list_comment;
@@ -52,10 +52,10 @@ sub store_section_leaf_element ($self, $logger, $elt_obj, $check, $v_ref) {
foreach my $v_item ( $v_ref ->@* ) {
if (ref $v_item) {
push @v, $v_item->[0] if $value_type eq 'string' or $v_item->[0] =~ /\S/;
- push @note, $v_item->[2];
+ push @note, $v_item->[2] if $v_item->[2];
}
- else {
- push @comment, $ v_item;
+ elsif ($v_item) {
+ push @comment, $v_item;
}
}
my $v = join("\n", @v);
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git
More information about the Pkg-perl-cvs-commits
mailing list