# HG changeset patch
# User Heiko <hs@schlittermann.de>
# Date 1291671678 -3600
# Node ID 70542561275796439aa59a21b09bd867e773ae13
# Parent  d569d7a1adff9c4488445ef360aa3e7dca0db266# Parent  9f628506a2e38cd61de5c067e42060c4f04301e9
merge patch from m.foerste

diff -r d569d7a1adff -r 705425612757 tele-watch.pl
--- a/tele-watch.pl	Wed Jul 08 13:17:03 2009 +0200
+++ b/tele-watch.pl	Mon Dec 06 22:41:18 2010 +0100
@@ -218,11 +218,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}";