r9024 - /scripts/qa/DebianQA/Watch.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Thu Nov 8 11:48:36 UTC 2007


Author: tincho-guest
Date: Thu Nov  8 11:48:35 2007
New Revision: 9024

URL: http://svn.debian.org/wsvn/?sc=1&rev=9024
Log:
Quote directory names from regex parsing

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=9024&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Thu Nov  8 11:48:35 2007
@@ -210,9 +210,9 @@
     my $path = $2;
     my $pattern;
     if($filter =~ m{^/}) {
-        $pattern = qr{(?:^$site)?$filter};
+        $pattern = qr{(?:^\Q$site\E)?$filter};
     } elsif($filter !~ m{^\w+://}) {
-        $pattern = qr{(?:(?:^$site)?$path/)?$filter};
+        $pattern = qr{(?:(?:^\Q$site\E)?\Q$path\E/)?$filter};
     } else {
         $pattern = $filter;
     }




More information about the Pkg-perl-cvs-commits mailing list