From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 16 Apr 2021 15:31:58 +0000 (+0100)
Subject: media-scraper: Tolerate recolourings from/to #....
X-Git-Tag: otter-0.5.0~41
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=ff90a0c66399db296e1bc7213d7576b0eeb2fb20;p=otter.git

media-scraper: Tolerate recolourings from/to #....

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/media-scraper b/media-scraper
index 635b63e1..f500733b 100755
--- a/media-scraper
+++ b/media-scraper
@@ -265,7 +265,8 @@ END
 	my $cfp;
 	my $emitmap = sub {
 	  my ($from, $to) = @_;
-	  confess if $from =~ m/\W/ || $to =~ m/\W/;
+	  confess if $from =~ m/.\W|[^\w#]/
+	          || $to   =~ m/.\W|[^\w#]/;
 
 	  $coloured = $ncoloured;
 	  if (!defined $cfp) {