media-scraper: Tolerate * at the end of "licences" entries

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

diff --git a/media-scraper b/media-scraper
index c58443887bb2a7d0ac020603f0d56924b44164d8..ab6d39d8b41d0312f4eafc5e507035ea12a33b65 100755 (executable)
--- a/media-scraper
+++ b/media-scraper
@@ -118,6 +118,7 @@ sub method_wikimedia ($$$) {
     open WT, "$wt" or die $!;
     my (@lics) = @{ $scraper->('licences') };
     s/\W/\\$&/g foreach @lics;
+    s/\\\*$/.*/g foreach @lics;
     my $lic1_re = '(?:'.(join '|', @lics).')';
     my $ok;
     while (<WT>) {