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 2a633905d5c3af6d99d5b94a42c0da40e0bbe97c..7861b74516c0a7b032194ab8d0c1f190323950ca 100755 (executable)
--- 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"};