[libconfig-model-dpkg-perl] 05/06: strip build-profile when asking package info from madison (bulk mode)

[dod at debian.org]

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 25f1d3df8155d0365a5bde3b85ba2ebb91af79ec
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Jul 18 21:23:25 2014 +0200

    strip build-profile when asking package info from madison (bulk mode)
---
 lib/Config/Model/Backend/Dpkg/Control.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Config/Model/Backend/Dpkg/Control.pm b/lib/Config/Model/Backend/Dpkg/Control.pm
index 05ba69f..3108b01 100644
--- a/lib/Config/Model/Backend/Dpkg/Control.pm
+++ b/lib/Config/Model/Backend/Dpkg/Control.pm
@@ -89,7 +89,7 @@ sub fill_package_cache {
         foreach my $found (keys %section) {
             if ($found =~ /Depends|Suggests|Recommends|Enhances|Breaks|Conflicts|Replaces/) {
                 my $v = $section{$found}[0] ; # $section{found} array is [ value, line_nb, altered_value , comment ]
-                my @v = grep { not /\$/ } map { s/\[.*\]//g; s/\(.*\)//; s/\s//g; $_;} split /[\s\n]*[,|][\s\n]*/, $v;
+                my @v = grep { not /\$/ } map { s/\[.*\]//g; s/<.*>//; s/\(.*\)//; s/\s//g; $_;} split /[\s\n]*[,|][\s\n]*/, $v;
                 chomp @v;
                 map {$packages{$_} =1 ;} @v;
             }

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