From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Wed, 26 Aug 2009 19:14:47 +0000 (-0400)
Subject: Can't do that :(
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3e4e3e6317ac8b7cb373e0430d1752109d12190;p=sdlgit%2FSDL_perl.git

Can't do that :(
---

diff --git a/Build.PL b/Build.PL
index b822271..41a812b 100755
--- a/Build.PL
+++ b/Build.PL
@@ -17,7 +17,7 @@ use YAML::Node;
 
 print STDERR <<BROKENWIN if ($^O =~ /MSWin.*|cygwin/ );
 ******************************** !!!WARNING!!! ******************************** 
-Windows support is currently broken - you can continue, but you've been warned! 
+Windows support is currently experimental - you can continue, but you've been warned! 
 If you are interested in helping please contact us at sdl-devel\@perl.org.
 *******************************************************************************
 BROKENWIN
diff --git a/make/lib/SDL/Build.pm b/make/lib/SDL/Build.pm
index fc37fe1..a5f3cf8 100644
--- a/make/lib/SDL/Build.pm
+++ b/make/lib/SDL/Build.pm
@@ -44,7 +44,10 @@ use Config;
 sub process_xs
 {
 	my ($self, $file) = @_;
-		
+	
+	#TODO: call this in MSWin32::process_xs
+	$file =~ s/\\/\//g if( $^O =~ /MSWin.*/ );
+
 	my $properties                   = $self->{properties};
 	my $file_args                    = $self->notes( 'file_flags' )->{$file};
 	my @old_values                   = @$properties{ keys %$file_args };
diff --git a/make/lib/SDL/Build/MSWin32.pm b/make/lib/SDL/Build/MSWin32.pm
index e1d006f..1ba29a9 100644
--- a/make/lib/SDL/Build/MSWin32.pm
+++ b/make/lib/SDL/Build/MSWin32.pm
@@ -34,12 +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);
-}
+#Ideal Solution but it is not called!
+#sub process_xs
+#{
+#	my ($self, $file) = @_;
+#	$file =~ s/\\/\//g; #replace \ for / (Win32 needs this);
+#	$self->SUPER::process_xs($file);
+#}
 
 sub opengl_headers
 {