Patch for bug 271373: Fix bogus t/008filter.t error on Win32; patch by Marc Schumann...

diff --git a/t/008filter.t b/t/008filter.t
index bc8c6aa152a168d4287461c6dcfe5cf810950af0..adbbf9e9b8a16591fffc374e8c807209e7a9a956 100644 (file)
--- a/t/008filter.t
+++ b/t/008filter.t
@@ -73,8 +73,10 @@ foreach my $path (@Support::Templates::include_paths) {
           foreach my $file (keys %safe) {
             my $orig_file = $file;
             $file =~ s|/|\\|g;
-            $safe{$file} = $safe{$orig_file};
-            delete $safe{$orig_file};
+            if ($file ne $orig_file) {
+              $safe{$file} = $safe{$orig_file};
+              delete $safe{$orig_file};
+            }
           }
         }
     }