PATCH over 7848: Filter test flawed

Message-ID: <m3k89tbtxe.fsf@ak-71.mind.de>

p4raw-id: //depot/perl@7849

diff --git a/t/lib/filter-util.t b/t/lib/filter-util.t
index 1ec2b8b..4fc9f58 100644 (file)
--- a/t/lib/filter-util.t
+++ b/t/lib/filter-util.t
@@ -537,7 +537,7 @@ sub filter
 {
     my ($self) = @_ ;
     my ($status) ;
-    my ($here) = getcwd ;
+    my ($here) = quotemeta getcwd ;
  
     if (($status = filter_read()) > 0) {
         s/DIR/$here/g