[irclog] handle #bioclipse's weird revision links

git-svn-id: http://svn.pugscode.org/pugs/misc/irclog@17194 c213334d-75ef-0310-aa23-eaa082d1ae64

Author: moritz

IrcLog/WWW.pm

@@ -121,7 +121,7 @@ sub revision_links {
             );
     my $url_prefix = $prefixes{$channel};
     return $r unless $url_prefix;
-    $r =~ s/^r//;
+    $r =~ s/^r\x{02}?//;
     return qq{<a href="$url_prefix$r" title="Changeset for r$r">r$r</a>};
 }
 
@@ -258,7 +258,10 @@ my %output_chain = (
             rest    => 'revision_links',
         },
         revision_links => {
-            re      => qr/\br[1-9]\d*\b/,
+			# regex cludge: on #bioclipse the revision numbers by some
+			# weird bot contain non-printable characters for formating
+			# purposes
+            re      => qr/\br\x{02}?[1-9]\d*\b/,
             match   => \&revision_links,
             rest    => 'email_obfuscate',
         },

t/revision-links.t

@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 6;
 
 BEGIN { use_ok('IrcLog::WWW'); }
 
@@ -49,6 +49,11 @@ my @tests = (
             result  => undef,
             desc    => 'r0\d+ does not linkify',
         },
+        {
+            test    => 'r' . chr(2) . '123',
+            result  => 'r123',
+            desc    => 'revision links with chr(02) after the r still work',
+        }
         );
 
 for my $h (@tests){