find-dup-primary-in-perms.pl

#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;

use IO::Zlib;

my $CPAN = shift || "/srv/cpan";

say "Parsing 06perms...";
my $fh = IO::Zlib->new( "$CPAN/modules/06perms.txt.gz", "rb" );

my $inheader = 1;
my $perms    = {};

while (<$fh>) {

    if ($inheader) {
        $inheader = 0 if not m/ \S /x;
        next;
    }

    chomp;
    my ( $module, $author, $perm ) = split m/\s* , \s*/x;
    push @{$perms->{$module}{maint}}, $author;
    if ( $perm eq 'f' || $perm eq 'm' ) {
        if ( exists $perms->{$module}{auth} ) {
            my $o_author = $perms->{$module}{auth};
            my $o_perm = $perm eq 'f' ? 'm' : 'f';
            if ( $o_author eq $author ) {
                say "duplicate primary on $module (same ID: $author)"
            }
            elsif ( $perm = 'm' ) {
                say "duplicate primary on $module (m:$author f:$o_author)"
            }
            else {
                say "duplicate primary on $module (m:$o_author f:$author)"
            }
            $perms->{$module}{auth} = $perm eq 'f' ? $author : $o_author;
        }
        else {
            $perms->{$module}{auth} =  $author;
        }
    }
}