[pkg-components] 01/02: Adapt to changes in Debian::Control API

[Olof Johansson]

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

olof-guest pushed a commit to branch master
in repository pkg-components.

commit e0c8b45d2997af543401191efecb18796bab1219
Author: Olof Johansson <olof at ethup.se>
Date:   Sun Aug 11 14:50:58 2013 +0200

    Adapt to changes in Debian::Control API
    
    Debian::Control's ->binary method no longers return a Tie::IxHash
    object, but rather the tied hash. A ->binary_tie method was
    introduced for the old behavior.
    
    Closes: #719414
---
 Build.PL                              |    1 +
 debian/control                        |    4 ++--
 lib/Debian/Debhelper/Dh_components.pm |    2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Build.PL b/Build.PL
index 36d1030..8974f80 100644
--- a/Build.PL
+++ b/Build.PL
@@ -12,6 +12,7 @@ my $builder = Module::Build->new(
     },
     requires => {
         'version'    => 0,
+        'Debian::Control' => 0.77,
     },
     create_makefile_pl => 'traditional',
     add_to_cleanup      => [ 'Debian-Debhelper-Dh_components-*' ],
diff --git a/debian/control b/debian/control
index 8035987..4f15726 100644
--- a/debian/control
+++ b/debian/control
@@ -10,7 +10,7 @@ Build-Depends-Indep: libtest-pod-coverage-perl,
                      libdebian-copyright-perl (>= 0.2),
                      libtest-nowarnings-perl,
                      libtest-deep-perl,
-                     dh-make-perl,
+                     dh-make-perl (>= 0.70),
                      libtest-longstring-perl,
                      libperl6-slurp-perl,
                      libtest-pod-perl
@@ -28,7 +28,7 @@ Depends: ${misc:Depends},
          libreadonly-perl,
          dpkg-dev,
          libdebian-copyright-perl (>= 0.2),
-         dh-make-perl,
+         dh-make-perl (>= 0.70),
          libperl6-slurp-perl
 Suggests: devscripts
 Description: debhelper tool to help maintain bundles
diff --git a/lib/Debian/Debhelper/Dh_components.pm b/lib/Debian/Debhelper/Dh_components.pm
index 5bdc641..4561c6e 100644
--- a/lib/Debian/Debhelper/Dh_components.pm
+++ b/lib/Debian/Debhelper/Dh_components.pm
@@ -138,7 +138,7 @@ sub _read_substvars {
     my $component = shift;
     my $control = Debian::Control->new;
     $control->read($filename);
-    my ($binary) = $control->binary->Values(0);
+    my ($binary) = $control->binary_tie->Values(0);
     foreach my $type (@DEPENDENCY_TYPES) {
         my $filetype = $type;
         $filetype =~ s{_}{-}gxms;

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