Makefile.PL 628 字节
Newer Older
W
wangguibao 已提交
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
#!/usr/bin/perl
#
# This isn't a "real" `Makefile.PL'
# It just copies the correct `Makefile.*' to `Makefile'
#
use strict;
use Getopt::Long;
use File::Copy;

sub usage() {
  die "Usage: $0 [--bcc32]\n";
}

my $source;
my $target = 'Makefile';
my $windows = $ENV{'windir'};

GetOptions( 'bcc32' => sub { $source = 'Makefile.bcc32'  } ) or usage();
if ( !defined( $source ) ) {
  $source = $windows ? 'Makefile.msvc' : 'Makefile.unix';
}

unlink($target);
$windows ? copy($source, $target) : symlink($source, $target);

print "`Makefile' is now `$source'.\n";

#
# Local Variables:
# compile-command: "perl Makefile.PL"
# End:
#