r11939 - /scripts/qa/DebianQA/Svn.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Thu Jan  3 06:09:07 2008
New Revision: 11939

URL: http://svn.debian.org/wsvn/?sc=1&rev=11939
Log:
Remove dupes from list of binaries

Modified:
    scripts/qa/DebianQA/Svn.pm

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=11939&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Thu Jan  3 06:09:07 2008
@@ -142,17 +142,19 @@
         $svn{$dir}{b_d_i} = $ctrl_data->[0]{'build-depends-indep'};
         $svn{$dir}{short_descr} = $short;
         $svn{$dir}{long_descr} = $long;
+        my %bins;
         foreach(1..$#$ctrl_data) {
             my $bin = $ctrl_data->[$_];
             my ($shd, $lnd) = split_description($bin->{description});
-            push @{$svn{$dir}{binaries}}, $bin->{package};
             $svn{$dir}{bindata}[$_-1] = {
                 %$bin,
                 short_descr => $shd,
                 long_descr => $lnd,
             };
             delete $svn{$dir}{bindata}[$_-1]{description};
-        }
+            $bins{$bin->{package}} = 1;
+        }
+        $svn{$dir}{binaries} = [ sort keys %bins ];
         my $parser = Parse::DebianChangelog->init({
                 instring => $changelog });
         my $error = $parser->get_error() or $parser->get_parse_errors();