Porting/corelist.pl: fix a die error message

One particular die() just printed a filename, without saying what was
wrong with it. Which was a bit confusing.

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 11d51ad..6185150 100755 (executable)
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -194,7 +194,8 @@ while ( my ( $module, $file ) = each %module_to_file ) {
 
     # Like it or lump it, this has to be Unix format.
     my $meta_YAML_path = "authors/id/$dist";
-    $meta_YAML_path =~ s/(?:tar\.gz|tar\.bz2|zip|tgz)$/meta/ or die "$meta_YAML_path";
+    $meta_YAML_path =~ s/(?:tar\.gz|tar\.bz2|zip|tgz)$/meta/
+       or die "ERROR: bad meta YAML path: '$meta_YAML_path'";
     my $meta_YAML_url = 'http://ftp.funet.fi/pub/CPAN/' . $meta_YAML_path;
 
     if ( -e "$cpan/$meta_YAML_path" ) {