Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: f23e121a3d
Fetching contributors…

Cannot retrieve contributors at this time

49 lines (42 sloc) 1.284 kB
use strict;
use warnings;
use File::Spec;
use Capture::Tiny qw[capture_merged];
use Getopt::Long;
use Cwd;
use FindBin qw[$Bin];
die unless @ARGV;
my ($target);
GetOptions( 'target=s', \$target, );
die "No --target specified, please do so\n" unless $target;
foreach my $arg ( @ARGV ) {
my $path = Cwd::realpath($arg);
next unless -d $path;
my $confroot = File::Spec->catdir( $path, 'conf' );
next unless -d $confroot;
my @perls;
opendir my $dir, $path or die "$!\n";
while (my $item = readdir($dir)) {
next unless $item =~ /^perl-/;
push @perls, $item;
}
closedir $dir;
next unless @perls;
foreach my $perl ( sort @perls ) {
my $conf = File::Spec->catdir( $confroot, $perl );
next unless -d $conf;
my $perlexe = File::Spec->catfile($path,$perl,'bin','perl');
unless ( -e $perlexe ) {
# hmmm no perl there. Let's see if it is a dev release
my @possibles = glob("${perlexe}5*");
die "No perl executable found at '$path'\n" unless @possibles;
$perlexe = shift @possibles;
}
my $yactool = File::Spec->catfile($path,$perl,'bin','yactool');
local $ENV{PERL5_YACSMOKE_BASE} = $conf;
system($yactool,'--reindex');
system($yactool,'--test', $target);
system($yactool,'--flush');
}
}
exit 0;
Jump to Line
Something went wrong with that request. Please try again.