From 0bd25a01b546fc6c6bfa1b4d3b1a492b471d396b Mon Sep 17 00:00:00 2001 From: "jouni%heikniemi.net" <> Date: Wed, 16 Jun 2004 18:13:39 +0000 Subject: Bug 142744: Testing suite should work on Win32 Patch by byron jones (glob) r=jouni, a=justdave --- t/008filter.t | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 't/008filter.t') diff --git a/t/008filter.t b/t/008filter.t index d0654008a..e3d107bf2 100644 --- a/t/008filter.t +++ b/t/008filter.t @@ -45,6 +45,7 @@ my $topdir = cwd; $/ = undef; foreach my $path (@Support::Templates::include_paths) { + $path =~ s|\\|/|g if $^O eq 'MSWin32'; # convert \ to / in path if on windows $path =~ m|template/([^/]+)/([^/]+)|; my $lang = $1; my $flavor = $2; @@ -65,6 +66,17 @@ foreach my $path (@Support::Templates::include_paths) { } else { do "filterexceptions.pl"; + if ($^O eq 'MSWin32') { + # filterexceptions.pl uses / separated paths, while + # find_actual_files returns \ separated ones on Windows. + # Here, we convert the filter exception hash to use \. + foreach my $file (keys %safe) { + my $orig_file = $file; + $file =~ s|/|\\|g; + $safe{$file} = $safe{$orig_file}; + delete $safe{$orig_file}; + } + } } # We preprocess the %safe hash of lists into a hash of hashes. This allows -- cgit v1.2.3-24-g4f1b