develooper Front page | perl.perl5.porters | Postings from November 2000

PATCH over 7848: Filter test flawed

From:
andreas.koenig
Date:
November 24, 2000 01:28
Subject:
PATCH over 7848: Filter test flawed
Message ID:
m3k89tbtxe.fsf@ak-71.mind.de
Right hand side of s/// must be escaped to work as expected. Bug
revealed by the fact that I have an '@' in the current working
directory.

--- perl-5.7.0@7847/t/lib/filt-util.t~	Fri Nov 24 09:57:04 2000
+++ perl-5.7.0@7847/t/lib/filt-util.t	Fri Nov 24 10:24:12 2000
@@ -537,7 +537,7 @@
 {
     my ($self) = @_ ;
     my ($status) ;
-    my ($here) = getcwd ;
+    my ($here) = quotemeta getcwd ;
  
     if (($status = filter_read()) > 0) {
         s/DIR/$here/g




-- 
andreas



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About