From f126baa3e42d4b5818bac596304496122723d3ab Mon Sep 17 00:00:00 2001
From: "bryner%brianryner.com" <bryner%brianryner.com>
Date: Fri, 10 Sep 2004 21:16:29 +0000
Subject: [PATCH] Fix problems with slash direction for activestate perl.
 r=dbaron.

---
 config/preprocessor.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/config/preprocessor.pl b/config/preprocessor.pl
index 090eac261cb..342f552c8d1 100755
--- a/config/preprocessor.pl
+++ b/config/preprocessor.pl
@@ -98,6 +98,9 @@ sub include {
     my $directory = $stack->{'variables'}->{'DIRECTORY'};
     if ($filename ne '-') {
         $filename = File::Spec::_0_8::rel2abs($filename, $directory);
+        # splitpath expects forward-slash paths on windows, so we have to
+        # change the slashes if using Activestate Perl.
+        $filename =~ s?\\?/?g if "$^O" eq "MSWin32";
         my($volume, $path) = File::Spec::_0_8::splitpath($filename);
         $directory = File::Spec::_0_8::catpath($volume, $path, '');
     }