view release on metacpan or  search on metacpan

maint/check-gentoo-names.pl  view on Meta::CPAN

use Capture::Tiny qw( capture );
use FindBin;

my $cnf = path($FindBin::Bin)->sibling('share')->child('dist-to-gentoo.csv');
my $fh  = $cnf->openr_raw;

while ( my $line = <$fh> ) {
  chomp $line;
  my (@fields) = split /,/, $line;
  my ( $out, $err, $exit ) = capture {
    system( 'eix', '--in-overlay', 'gentoo', '-c', '-e', $fields[1] )
  };
  if ( $exit != 0 and $exit != 1 and $exit != 256 ) {
    die "Halt: $err $exit";
  }
  next if $exit == 0;
  print $fields[1] . qq[ is missing\n];
}

maint/check-missing-virtuals.pl  view on Meta::CPAN

use Path::Tiny;
use Capture::Tiny qw( capture );
use FindBin;
use lib 'lib';
use Test::File::ShareDir::Dist { 'Gentoo-Util-VirtualDepend' => "$FindBin::Bin/../share/" };
use Gentoo::Util::VirtualDepend;
my $vdep = Gentoo::Util::VirtualDepend->new();

my ( $out, $err, $exit ) = capture {
  system( 'eix', '--in-overlay', 'gentoo', '--only-names', '-c', 'virtual/perl-*' );
};
if ( $exit != 0 and $exit != 1 and $exit != 256 ) {
  die "Halt: $err $exit";
}
for my $name ( split /\n/, $out ) {
  if ( not $vdep->has_gentoo_package($name) ) {
    print $name . qq[ is missing\n];
  }
}