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

jamessan pushed a commit to branch master
in repository devscripts.

commit 0a9023900911e6c2004aaa4e47426703920eaeff
Author: James McCoy <[email protected]>
Date:   Sun Oct 4 20:07:14 2015 -0400

    dd-list: Rename %info to %sources
    
    Signed-off-by: James McCoy <[email protected]>
---
 scripts/dd-list.pl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/scripts/dd-list.pl b/scripts/dd-list.pl
index f5c1276..8c4d168 100755
--- a/scripts/dd-list.pl
+++ b/scripts/dd-list.pl
@@ -108,7 +108,7 @@ sub parsefh
                                 map { "\Q$_\E" }
                                 keys %package_name;
     }
-    my %info;
+    my %sources;
     while (<$fh>) {
        my ($package, $source, $binaries, $maintainer, @uploaders);
 
@@ -156,17 +156,17 @@ sub parsefh
            if ($check_package) {
                my @pkgs;
                if (@pkgs = ($binaries =~ m/$package_names/g)) {
-                   $info{$source}{$version}{binaries} = [@pkgs];
+                   $sources{$source}{$version}{binaries} = [@pkgs];
                }
                elsif ($source !~ m/$package_names/) {
                    next;
                }
            }
            else {
-               $info{$source}{$version}{binaries} = [$binaries];
+               $sources{$source}{$version}{binaries} = [$binaries];
            }
-           $info{$source}{$version}{maintainer} = $maintainer;
-           $info{$source}{$version}{uploaders} = [@uploaders];
+           $sources{$source}{$version}{maintainer} = $maintainer;
+           $sources{$source}{$version}{uploaders} = [@uploaders];
        }
        else {
            warn "E: parse error in stanza $. of $fname\n";
@@ -174,10 +174,10 @@ sub parsefh
        }
     }
 
-    for my $source (keys %info) {
-       my @versions = sort map { Dpkg::Version->new($_) } keys 
%{$info{$source}};
+    for my $source (keys %sources) {
+       my @versions = sort map { Dpkg::Version->new($_) } keys 
%{$sources{$source}};
        my $version = $versions[-1];
-       my $srcinfo = $info{$source}{$version};
+       my $srcinfo = $sources{$source}{$version};
        my @names;
        if ($check_package) {
            $package_name{$source}--;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/collab-maint/devscripts.git

_______________________________________________
devscripts-devel mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/devscripts-devel

Reply via email to