[libconfig-model-dpkg-perl] 20/33: copyright backend: avoid undef warning
dod at debian.org
dod at debian.org
Mon Mar 30 17:41:42 UTC 2015
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 9a701da39bfab7db6db261ba39ae3155b9038c4c
Author: Dominique Dumont <dod at debian.org>
Date: Sat Mar 28 10:32:12 2015 +0100
copyright backend: avoid undef warning
---
lib/Config/Model/Backend/Dpkg/Copyright.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Config/Model/Backend/Dpkg/Copyright.pm b/lib/Config/Model/Backend/Dpkg/Copyright.pm
index 323b5b7..79975d5 100644
--- a/lib/Config/Model/Backend/Dpkg/Copyright.pm
+++ b/lib/Config/Model/Backend/Dpkg/Copyright.pm
@@ -387,7 +387,7 @@ sub write {
my $local_data_ref = { one => \@section, all => $data_ref->{all} } ;
foreach my $elt (@element_list) {
if ($elt eq 'text') {
- $section[1] .= $node->fetch_element_value($elt);
+ $section[1] .= $node->fetch_element_value($elt) // '';
}
else {
$scanner->scan_element($local_data_ref, $node,$elt);
--
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