# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1286202577 -7200
# Node ID 9f628506a2e38cd61de5c067e42060c4f04301e9
# Parent  c6b6c036634282cea3be56a23e79da031f4f44be
quoting variables in regexp patterns

diff -r c6b6c0366342 -r 9f628506a2e3 tele-watch.pl
--- a/tele-watch.pl	Fri Mar 13 16:22:06 2009 +0100
+++ b/tele-watch.pl	Mon Oct 04 16:29:37 2010 +0200
@@ -217,11 +217,11 @@
                 # change the link targets
 
                 # find the links pointing to the $target/
-                foreach my $link (grep { -l && readlink =~ /^$target\// }
+                foreach my $link (grep { -l && readlink =~ /^\Q$target\E\// }
                     dir "$fullname/")
                 {
                     my $x = readlink($link);
-                    my ($t) = ($x =~ /^$target\/(.*)\/$from_base$/);
+                    my ($t) = ($x =~ /^\Q$target\E\/(.*)\/\Q$from_base\E$/);
 
                     my $y = "$target/$t/$e->{name}";