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 b44bc0f8f443cbff7a7a86867f273e7fca2d7c96..0c1c86fbc2639fc41a8a74b06675998f53540a32 100755 (executable)
--- 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";