From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Wed, 26 Aug 2009 18:13:43 +0000 (-0400)
Subject: Fixed stupid errors and added regex sub fix for windows path seperator
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d02b2c8ebccbc84358a389e12bdb0668fcbd7258;p=sdlgit%2FSDL_perl.git

Fixed stupid errors and added regex sub fix for windows path seperator
---

diff --git a/META.yml b/META.yml
index 94ce854..d2176c7 100644
--- a/META.yml
+++ b/META.yml
@@ -1,6 +1,6 @@
 ---
 name: SDL_Perl
-version: v2.2.1.8
+version: v2.2.2
 author:
   - 'David J. Goehrig <DGOEHRIG@cpan.org>'
 abstract: Simple DirectMedia Layer for Perl
@@ -16,7 +16,7 @@ configure_requires:
 provides:
   SDL:
     file: lib/SDL.pm
-    version: v2.2.1.8
+    version: v2.2.2
   SDL::App:
     file: lib/SDL/App.pm
   SDL::Cdrom:
diff --git a/make/lib/SDL/Build.pm b/make/lib/SDL/Build.pm
index bcc03a5..fc37fe1 100644
--- a/make/lib/SDL/Build.pm
+++ b/make/lib/SDL/Build.pm
@@ -44,7 +44,7 @@ use Config;
 sub process_xs
 {
 	my ($self, $file) = @_;
-
+		
 	my $properties                   = $self->{properties};
 	my $file_args                    = $self->notes( 'file_flags' )->{$file};
 	my @old_values                   = @$properties{ keys %$file_args };
@@ -253,7 +253,7 @@ sub process_support_files {
 # get link flags with a given a sdl_dir
 sub alt_link_flags
 {
-	my($self) = @_;
+	my $self = shift;
 	my $sdl_dir = shift;
 
 	return '-L"'.$sdl_dir.'\lib"';
@@ -262,10 +262,10 @@ sub alt_link_flags
 # get compile flags with a given a sdl_dir
 sub alt_compile_flags
 {
-	 my($self) = @_;
+	 my $self = shift;
 	 my $sdl_dir = shift;
 
-	 return '-L"'.$sdl_dir.'\include\SDL"';	
+	 return '-I"'.$sdl_dir.'\include\SDL"';	
 }
 
 # Override to create a MacOS Bundle
diff --git a/make/lib/SDL/Build/MSWin32.pm b/make/lib/SDL/Build/MSWin32.pm
index 3951d4e..e1d006f 100644
--- a/make/lib/SDL/Build/MSWin32.pm
+++ b/make/lib/SDL/Build/MSWin32.pm
@@ -34,6 +34,13 @@ use Config;
 use Carp;
 use base 'SDL::Build';
 
+sub process_xs
+{
+	my ($self, $file) = @_;
+	$file =~ s/\\/\//g; #replace \ for / (Win32 needs this);
+	$self->SUPER::process_xs($file);
+}
+
 sub opengl_headers
 {
 	return GL => 'SDL_opengl.h';