Bug 142744: Testing suite should work on Win32

Patch by byron jones (glob) <bugzilla@glob.com.au>
r=jouni, a=justdave
This commit is contained in:
jouni%heikniemi.net 2004-06-16 11:13:39 +00:00
Родитель b717e411bf
Коммит 32ca73ddec
1 изменённых файлов: 12 добавлений и 0 удалений

Просмотреть файл

@ -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