fix on return value for sdl functions in Utility

[sdlgit/SDL_perl.git] / Build.PL

diff --git a/Build.PL b/Build.PL
index ad3925a..4774a76 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -2,27 +2,21 @@
 #
 # Copyright (C) 2003 chromatic 
 # Copyright (C) 2004 David J. Goehrig
-#
+# Copyright (C) 2009 Kartik Thakore
 
 use strict;
-
+use warnings;
+use Carp;
 use lib  'make/lib';
 
+use Data::Dumper;
 use SDL::Build;
+use SDL::Utility;
 use YAML;
+use YAML::Node;
 
-my $sdl_compile_flags = `sdl-config --cflags`;
-my $sdl_link_flags    = `sdl-config --libs`;
-
-if ($? >> 8)
-{
-       die "SDL doesn't appear to be installed.\n" .
-               "Please check that sdl-config is in your path and try again.\n";
-}
-
-chomp( $sdl_compile_flags );
-chomp( $sdl_link_flags );
-
+my $sdl_compile_flags = SDL::Utility->sdl_c_flags();
+my $sdl_link_flags    = SDL::Utility->sdl_libs();
 # subsystem to build
 #      file
 #              location of source file => location of build file to get name right
@@ -35,7 +29,7 @@ my %subsystems =
        SDL => {
                file      => {
                        from  => 'src/SDL.xs',
-                       to    => './SDL.xs',
+                       to    => './SDL_perl.xs',
                },
                libraries => [qw( SDL SDL_image SDL_mixer SDL_net SDL_ttf SDL_gfx
                                  png jpeg smpeg )],
@@ -122,6 +116,7 @@ my $links         = $arch->build_links( \%libraries, $build_systems );
 my %xs = map { $subsystems{$_}{file}{from} => $subsystems{$_}{file}{to} }
             keys %subsystems;
 my $build   = SDL::Build->new(
+       module_name          => 'SDL',
        dist_name            => 'SDL_Perl', 
        license              => 'lgpl',
        dist_version_from    => 'lib/SDL.pm',
@@ -149,6 +144,5 @@ $build->set_flags(
        $sdl_compile_flags,
        $sdl_link_flags,
 );
-
 # now we're ready to go!
 $build->create_build_script();