[libconfig-model-dpkg-perl] 02/05: format_dpkg_section can handle empty array

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to annotated tag debian/2.104
in repository libconfig-model-dpkg-perl.

commit 84c1444c8530a6c62a258829d3a649b19c27b8e9
Author: Dominique Dumont <dod at debian.org>
Date:   Wed Nov 22 20:07:19 2017 +0100

    format_dpkg_section can handle empty array
---
 lib/Config/Model/Backend/DpkgSyntax.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/Config/Model/Backend/DpkgSyntax.pm b/lib/Config/Model/Backend/DpkgSyntax.pm
index d8d4423..b20e8b3 100644
--- a/lib/Config/Model/Backend/DpkgSyntax.pm
+++ b/lib/Config/Model/Backend/DpkgSyntax.pm
@@ -178,9 +178,8 @@ sub write_dpkg_file {
 # TODO: also rework coyright and dpkgpatch to cope with new data structure
 
 # input is [ may_be_comment, keyword => value | value_list_ref, ... ]
-sub format_dpkg_section {
-    my ($self, $array_ref,$list_sep) = @_ ;
-
+sub format_dpkg_section ($self, $array_ref, $list_sep) {
+    $array_ref //= [] ;
     my @lines ;
 
     my $i = 0;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git