X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=br.pl;h=1181443dcc895cd598db7a6bcaa9ecc96afcae7f;hb=5af88d19ca808d9f8b1e3898e93bedfd0a2b39a3;hp=f900028d816430a135182d1e8b4cc2bdf4730d39;hpb=a3808ee65bc77be5eb2ad4b07941d8c79a0314fe;p=scpubgit%2FJSON-Tree-Viewer.git

diff --git a/br.pl b/br.pl
index f900028..1181443 100644
--- a/br.pl
+++ b/br.pl
@@ -160,9 +160,10 @@ sub link_to {
   my ($self, @to) = @_;
   use HTML::Tags;
   my @link = map {
-    s{\\}{\\\\}g;
-    s{/}{\\/}g;
-    $_;
+    my $link = $_;
+    $link =~ s{\\}{\\\\}g;
+    $link =~ s{/}{\\/}g;
+    $link;
   } @to;
   my $link = join('/', @link, '');
   my $to = $to[-1];