--- 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}";