summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/008filter.t12
1 files changed, 12 insertions, 0 deletions
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