Porting/corelist.pl: fix a die error message
authorDavid Mitchell <davem@iabyn.com>
Mon, 4 Mar 2013 01:00:05 +0000 (01:00 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 4 Mar 2013 01:00:05 +0000 (01:00 +0000)
One particular die() just printed a filename, without saying what was
wrong with it. Which was a bit confusing.

Porting/corelist.pl

index 11d51ad..6185150 100755 (executable)
@@ -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" ) {