fixed link title encoding issue

diff --git a/br.pl b/br.pl
index f900028..1181443 100644 (file)
--- 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];