Skip to content

Commit

Permalink
Removed superfluous warning. Also brought in the capitalisation and s…
Browse files Browse the repository at this point in the history
…lang police
  • Loading branch information
adamkennedy committed Jan 6, 2011
1 parent 5f6446e commit 171a4d3
Showing 1 changed file with 11 additions and 10 deletions.
21 changes: 11 additions & 10 deletions Build.PL
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ This Release breaks back compatibility support with versions 2.4x and below
************************************************************************** **************************************************************************
BROKENMSG BROKENMSG


### we need the platform-specific module ### We need the platform-specific module
my %platforms = ( my %platforms = (
MSWin32 => 'Windows', MSWin32 => 'Windows',
MacOS => 'Darwin', MacOS => 'Darwin',
Expand All @@ -34,10 +34,10 @@ my $package = 'My::Builder::' . ( $platforms{$^O} || 'Unix' );
print "Gonna use '$package' class ...\n"; print "Gonna use '$package' class ...\n";
eval "require $package" or Carp::confess "Require '$package' failed: $@\n"; eval "require $package" or Carp::confess "Require '$package' failed: $@\n";


### subsystems to build ### Subsystems to build
# <subsystem> # <subsystem>
# <file> = hash of the following 2 values: # <file> = hash of the following 2 values:
# <from> = location of source file # <from> = location of source file
# <to> = location of build file to get name right # <to> = location of build file to get name right
# <libraries> = list reqiured libraries, names the same as keys to hash %libraries # <libraries> = list reqiured libraries, names the same as keys to hash %libraries
my %subsystems = ( my %subsystems = (
Expand Down Expand Up @@ -452,7 +452,7 @@ my %subsystems = (


); );


### external libraries ### External libraries
# <library name> = symbolic library name # <library name> = symbolic library name
# <define> = value that will be used as -D<value> option when compiling XS code # <define> = value that will be used as -D<value> option when compiling XS code
# <header> = header related to the library that will be used for avalability detection, # <header> = header related to the library that will be used for avalability detection,
Expand Down Expand Up @@ -555,12 +555,13 @@ my %libraries = (
}, },
); );


### mangle the compilable files into a format Module::Build can understand ### Mangle the compilable files into a format Module::Build can understand
my %xs = my %xs =
map { $subsystems{$_}{file}{from} => $subsystems{$_}{file}{to} } map { $subsystems{$_}{file}{from} => $subsystems{$_}{file}{to} }
keys %subsystems; keys %subsystems;


### stadard Module::Build stuff ### Standard Module::Build stuff
$My::Builder::config = $My::Builder::config; # Prevent a warning
my $build = $package->new( my $build = $package->new(
module_name => 'SDL', module_name => 'SDL',
dist_name => 'SDL', dist_name => 'SDL',
Expand Down Expand Up @@ -613,23 +614,23 @@ my $build = $package->new(
warn "###WARNING### Alien::SDL seems to be broken" warn "###WARNING### Alien::SDL seems to be broken"
unless Alien::SDL->config('prefix'); unless Alien::SDL->config('prefix');


### see which subsystems can be built -- do we have headers for them? ### See which subsystems can be built -- do we have headers for them?
print "Gonna autodetect available libraries ...\n"; print "Gonna autodetect available libraries ...\n";
my $build_systems = $build->find_subsystems( \%subsystems, \%libraries ); my $build_systems = $build->find_subsystems( \%subsystems, \%libraries );
my $lib_translate = $build->translate_table( \%subsystems, \%libraries ); my $lib_translate = $build->translate_table( \%subsystems, \%libraries );


### save info about available subsystems for future SDL::ConfigData ### Save info about available subsystems for future SDL::ConfigData
print "Gonna write config_data ...\n"; print "Gonna write config_data ...\n";
$build->config_data( 'SDL_cfg', $build_systems ); $build->config_data( 'SDL_cfg', $build_systems );
$build->config_data( 'SDL_lib_translate', $lib_translate ); $build->config_data( 'SDL_lib_translate', $lib_translate );
$build->config_data( 'subsystems', \%subsystems ); $build->config_data( 'subsystems', \%subsystems );
$build->config_data( 'libraries', \%libraries ); $build->config_data( 'libraries', \%libraries );


### something that was originally special to MacOS/Darwin ### Something that was originally special to MacOS/Darwin
# somebody MacOS/Darwin friendly should review whether it is still necessary # somebody MacOS/Darwin friendly should review whether it is still necessary
$build->special_build_settings(); $build->special_build_settings();


### get some info into M::B notes ### Get some info into M::B notes
print "Gonna save some info to 'notes' ...\n"; print "Gonna save some info to 'notes' ...\n";
$build->notes( 'subsystems', \%subsystems ); $build->notes( 'subsystems', \%subsystems );
$build->notes( 'libraries', \%libraries ); $build->notes( 'libraries', \%libraries );
Expand Down

0 comments on commit 171a4d3

Please sign in to comment.