From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Jan 2021 10:22:40 +0000 (+0000)
Subject: media-scraper: Improve an error message
X-Git-Tag: otter-0.3.0~122
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=3b2e130f7fcaf4d76056808a4a4b3fd69d498a8f;p=otter.git

media-scraper: Improve an error message

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

diff --git a/media-scraper b/media-scraper
index b44bc0f8..0c1c86fb 100755
--- a/media-scraper
+++ b/media-scraper
@@ -179,9 +179,10 @@ foreach my $groupname (sort keys %$groups) {
   foreach (split(/\n/, $gcfg->('files'))) {
     s/^\s+//;
     next if m/^\#/ || m/^$/;
-    m/^(\S+)\s+(\S+)/ or die;
+    m/^(\S+)\s+(\S+)/ or die "bad line in files: \`$_'";
     my $lministem = $1;
     my $rministem = $2;
+
     my $lstem = cfg_affixes $gcfg, 'item', $lministem;
     my $rstem = cfg_affixes $gcfg, 'stem', $rministem;
     my $lbase = "$basename/$lstem";