From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 21 Mar 2021 20:53:20 +0000 (+0000)
Subject: media-scraper: Support scrapers with - in their name
X-Git-Tag: otter-0.5.0~551
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=3d2340274cef4daa35cda80d669cc1247430b577;p=otter.git

media-scraper: Support scrapers with - in their name

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

diff --git a/media-scraper b/media-scraper
index 2a633905..7861b745 100755
--- a/media-scraper
+++ b/media-scraper
@@ -164,6 +164,7 @@ my $libinfo = $parser->parse_file($input);
 my $groups = $libinfo->{group};
 my $scraper = sub { $libinfo->{scraper}{$_[0]} };
 my $method = $scraper->('method');
+$method =~ s/-/_/g;
 my $method_fn = ${*::}{"method_$method"};
 
 my $methodlic_fn = ${*::}{"methodlic_$method"};