view release on metacpan or  search on metacpan

t/repos/package.pl  view on Meta::CPAN

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
        my($pinfo, $ipath) = @_;
 
        open my $of, '>', $ipath or die "open: $!";
        while(my($k, $v) = each %$pinfo){
                print $of "$k = @$v\n";
        }
        close $of or die "close: $!";
        return;
}
 
sub updatepi
{
        my($pi, $pd) = @_;
        $pi->{'builddate'} = [ time ];
        $pi->{'size'} = [ sumfiles($pd) ];
        $pi->{'packager'} = [ 'ALPM Module' ];
        return;
}
 
sub remkdir
{