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 e3d107bf29766501312120918cadc83beffd0d37..7457d6de10412d1ef825e2e9dd3ab10883475231 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};
+            }
           }
         }
     }