[libconfig-model-dpkg-perl] 06/11: push data on list element (no clear done)
dod at debian.org
dod at debian.org
Fri Jan 13 13:01:39 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 ad2af98feadd7d31daedda11dd02bcd86ec72c26
Author: Dominique Dumont <dod at debian.org>
Date: Tue Jan 10 12:58:16 2017 +0100
push data on list element (no clear done)
---
lib/Config/Model/Backend/DpkgStoreRole.pm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Config/Model/Backend/DpkgStoreRole.pm b/lib/Config/Model/Backend/DpkgStoreRole.pm
index 02410f4..8f6ec06 100644
--- a/lib/Config/Model/Backend/DpkgStoreRole.pm
+++ b/lib/Config/Model/Backend/DpkgStoreRole.pm
@@ -12,11 +12,11 @@ use 5.20.0;
use feature qw/postderef signatures/;
no warnings qw/experimental::postderef experimental::signatures/;
+# push data on list, does not clear
sub store_section_list_element ($self, $logger, $list_obj, $check, $v_ref) {
# v_ref is a list of ($value, $line_nb ,$note, at comment)
- $list_obj->clear();
- my $idx = 0;
+ my $idx = $list_obj->fetch_size;
my @list_comment;
foreach my $v_info ( $v_ref->@* ) {
if (ref $v_info) {
@@ -59,7 +59,7 @@ sub store_section_leaf_element ($self, $logger, $elt_obj, $check, $v_ref) {
}
}
my $v = join("\n", @v);
- my $note = join("\n", @note);
+ my $note = join("\n", @note);
$logger->debug("storing ",$elt_obj->element_name," value: $v");
$elt_obj->store( value => $v, check => $check );
--
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