cxxtest/sample/Makefile.PL

   1 #!/usr/bin/perl
   2 #
   3 # This isn't a "real" `Makefile.PL'
   4 # It just copies the correct `Makefile.*' to `Makefile'
   5 #
   6 use strict;
   7 use Getopt::Long;
   8 use File::Copy;
   9
  10 sub usage() {
  11   die "Usage: $0 [--bcc32]\n";
  12 }
  13
  14 my $source;
  15 my $target = 'Makefile';
  16 my $windows = $ENV{'windir'};
  17
  18 GetOptions( 'bcc32' => sub { $source = 'Makefile.bcc32'  } ) or usage();
  19 if ( !defined( $source ) ) {
  20   $source = $windows ? 'Makefile.msvc' : 'Makefile.unix';
  21 }
  22
  23 unlink($target);
  24 $windows ? copy($source, $target) : symlink($source, $target);
  25
  26 print "`Makefile' is now `$source'.\n";
  27
  28 #
  29 # Local Variables:
  30 # compile-command: "perl Makefile.PL"
  31 # End:
  32 #