r16097 - /scripts/qa/DebianQA/Classification.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Sat Mar 1 21:40:23 UTC 2008


Author: tincho-guest
Date: Sat Mar  1 21:40:22 2008
New Revision: 16097

URL: http://svn.debian.org/wsvn/?sc=1&rev=16097
Log:
Bad check for maintainers.

Modified:
    scripts/qa/DebianQA/Classification.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=16097&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Sat Mar  1 21:40:22 2008
@@ -164,10 +164,10 @@
                 and $data->{archive}{$pkg}{control}{maintainer}
                 and $data->{archive}{$pkg}{control}{uploaders}
                 and not grep( { /<\Q$CFG{common}{group_email}\E>/ }
-                @{$data->{archive}{$pkg}{control}{uploaders}}
+                @{$data->{archive}{$pkg}{control}{maintainer}}
             )) {
             if(grep({ /<\Q$CFG{common}{group_email}\E>/ }
-                    @{$data->{archive}{$pkg}{control}{maintainer}}
+                    @{$data->{archive}{$pkg}{control}{uploaders}}
                 )) {
                 $status{archive_nonmaint} = 1;
             } else {
@@ -178,10 +178,10 @@
                 and $data->{svn}{$pkg}{maintainer}
                 and $data->{svn}{$pkg}{uploaders}
                 and not grep( { /<\Q$CFG{common}{group_email}\E>/ }
-                @{$data->{svn}{$pkg}{uploaders}}
+                @{$data->{svn}{$pkg}{maintainer}}
             )) {
             if(grep({ /<\Q$CFG{common}{group_email}\E>/ }
-                    @{$data->{svn}{$pkg}{maintainer}}
+                    @{$data->{svn}{$pkg}{uploaders}}
                 )) {
                 $status{svn_nonmaint} = 1;
             } else {




More information about the Pkg-perl-cvs-commits mailing list