Commit | Line | Data |
bfd90409 |
1 | #! /usr/env/bin perl |
2 | |
3 | use strict; |
4 | use Cwd; |
5 | use File::Spec; |
6 | |
7 | BEGIN { |
8 | $^W = 1; # Use warnings |
9 | my $curdir = File::Spec->canonpath( Cwd::cwd() ); |
10 | my $is_same_dir = $^O eq 'MSWin32' ? (Win32::GetShortPathName($curdir) eq '/Users/dave/sdlperl') |
11 | : ($curdir eq '/Users/dave/sdlperl'); |
12 | unless ($is_same_dir) { |
13 | die ('This script must be run from /Users/dave/sdlperl, not '.$curdir."\n". |
14 | "Please re-run the Build.PL script here.\n"); |
15 | } |
16 | unshift @INC, |
17 | ( |
18 | '/Users/dave/sdlperl/make/lib' |
19 | ); |
20 | } |
21 | |
22 | use SDL::Build; |
23 | |
24 | # Some platforms have problems setting $^X in shebang contexts, fix it up here |
25 | $^X = Module::Build->find_perl_interpreter |
26 | unless File::Spec->file_name_is_absolute($^X); |
27 | |
28 | if (-e 'Build.PL' and not SDL::Build->up_to_date("Build.PL", $0)) { |
29 | warn "Warning: Build.PL has been altered. You may need to run 'perl Build.PL' again.\n"; |
30 | } |
31 | |
32 | # This should have just enough arguments to be able to bootstrap the rest. |
33 | my $build = SDL::Build->resume ( |
34 | properties => { |
35 | config_dir => '/Users/dave/sdlperl/_build', |
36 | }, |
37 | ); |
38 | |
39 | $build->dispatch; |