#!/usr/bin/perl
###########################################
# sp.pl - Select a perl installation
# Mike Schilli <m@perlmeister.com>, 2004
###########################################
use strict;
use warnings;

use File::Basename qw(basename);

my $PERL_HOME = "$ENV{HOME}/perl-installs";

my(@versions, $count);

for (<$PERL_HOME/perl-*>) {
    next if -l or ! -d;
    push @versions, basename($_);
}

foreach my $v (@versions) {
    print "[", ++$count, "] $v\n";
}

$| = 1;
print "> ";
my $number = <>;
chomp $number;

die "Invalid choice" unless 
  exists $versions[$number-1];

unlink("$PERL_HOME/perl-current") or
    warn "unlink failed ($!)";
symlink("$PERL_HOME/$versions[$number-1]", 
        "$PERL_HOME/perl-current") or
    die "symlink failed ($!)";