#!/usr/bin/perl
#
use strict;
use warnings;

my $package = shift;

my @FILES = ('Build.PL', 'MANIFEST');

# Check that required files are available before making any changes
foreach my $file (@FILES) {
        die "$file.$package not found" unless(-e "$file.$package");
        die "$file not a symlink" unless(! -e "$file" or -l "$file");
}

# Re-link files
foreach my $file (@FILES) {
        unlink($file) or die "unlink $file: $!" if(-l "$file");
        symlink("$file.$package", "$file") or die "link $file: $!";
}

system("perl Build.PL");