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 635b63e191dfb978b2c933a0dcd478347fc18f16..f500733b1e804a450d467c55ed467fc84eda483d 100755 (executable)
--- 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) {