Can't do that :(

diff --git a/Build.PL b/Build.PL
index b822271..41a812b 100755 (executable)
--- 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 (file)
--- 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 (file)
--- 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
 {