[dh-make-perl] 01/02: Packaging: parse 'dist.ini' if present

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository dh-make-perl.

commit 9b09b0d165b1789001646eedfb39a65c8a06b7b1
Author: Damyan Ivanov <dmn at debian.org>
Date:   Sun May 24 10:19:40 2015 +0000

    Packaging: parse 'dist.ini' if present
---
 Build.PL                            | 1 +
 debian/control                      | 2 ++
 lib/DhMakePerl/Command/Packaging.pm | 6 ++++++
 3 files changed, 9 insertions(+)

diff --git a/Build.PL b/Build.PL
index 31ce067..6cd2add 100644
--- a/Build.PL
+++ b/Build.PL
@@ -18,6 +18,7 @@ my $builder = My::Builder->new(
         'AptPkg::Config'            => 0,
         'Array::Unique'             => 0,
         'Carp'                      => 0,
+        'Config::INI::Reader'       => 0,
         'CPAN'                      => 0,
         'CPAN::Meta'                => 0,
         'Cwd'                       => 0,
diff --git a/debian/control b/debian/control
index d408835..2de9da9 100644
--- a/debian/control
+++ b/debian/control
@@ -18,6 +18,7 @@ Build-Depends: debhelper (>= 8),
 Build-Depends-Indep: libapt-pkg-perl,
                      libarray-unique-perl,
                      libclass-accessor-perl,
+                     libconfig-ini-perl,
                      libdpkg-perl,
                      libemail-address-perl,
                      libemail-date-format-perl,
@@ -56,6 +57,7 @@ Depends: debhelper (>= 8),
          libapt-pkg-perl,
          libarray-unique-perl,
          libclass-accessor-perl,
+         libconfig-ini-perl,
          libdpkg-perl,
          libemail-address-perl,
          libemail-date-format-perl,
diff --git a/lib/DhMakePerl/Command/Packaging.pm b/lib/DhMakePerl/Command/Packaging.pm
index 26438cd..25e0305 100644
--- a/lib/DhMakePerl/Command/Packaging.pm
+++ b/lib/DhMakePerl/Command/Packaging.pm
@@ -21,11 +21,13 @@ __PACKAGE__->mk_accessors(
         meta perlname author
         version rules docs examples copyright
         control
+        dist_ini
     )
 );
 
 use Array::Unique;
 use Carp qw(confess);
+use Config::INI::Reader ();
 use CPAN ();
 use CPAN::Meta;
 use Cwd qw( getcwd );
@@ -195,6 +197,10 @@ sub process_meta {
 
     $meta = CPAN::Meta->load_file($meta);
     $self->meta( $meta->as_struct );
+
+    my $dist_ini_fn = $self->main_file('dist.ini');
+    $self->dist_ini( Config::INI::Reader->read_file($dist_ini_fn) )
+        if -e $dist_ini_fn;
 }
 
 sub set_package_name {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/dh-make-perl.git