Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 19 lines (15 sloc) 398 Bytes
#!/usr/bin/perl
use strict;
use warnings;
my $root = $ARGV[0] // $ENV{PERLBREW_ROOT} // die "No root";
for my $d (<$root/perls/*>)
{
my ($n, $t) = $d =~ m|/([^/]+\d)([^/]*)$|;
$n =~ s/-5/5/;
$n .= "-thr" if $t =~ /thread/;
print "$d => $n\n";
$n = "/usr/local/bin/$n";
unlink $n;
my ($perl) = "$d/bin/perl";
symlink $perl, $n or die "Can't ln $perl => $n: $!";
}