Better error check/report in genpkg and perl-dist.

metas/perl was not returning the right error. metas/perl.d/perl-dist now
reports a better error when ~/.genpkg/var/corelist is missing. genpkg
was also not examining the right error code.

1 files changed, 10 insertions, 1 deletions

diff --git a/metas/perl.d/perl-dist b/metas/perl.d/perl-dist
index 3259fd8..297d052 100755
--- a/metas/perl.d/perl-dist
+++ b/metas/perl.d/perl-dist
@@ -3,7 +3,7 @@
 use warnings 'FATAL' => 'all';
 use strict;
 
-my $PROG = 'perl-dist';
+my $PROG = 'metas/perl.d/perl-dist';
 
 package Convert;
 
@@ -312,6 +312,15 @@ sub _nocore
 	my (@mods) = @_;
 
 	my $path = _vardir() . '/coremods';
+	unless(-f $path){
+		print STDERR "$PROG: error: $path is missing.
+******************************************************************************
+  You must generate it with genpkg's metas/perl.d/scrapecore script. Run it
+  against the source distribution of perl that is currently being packaged.
+******************************************************************************
+";
+		exit 1;
+	}
 	open(my $if, '<', $path) or die "$PROG: open $path: $!";
 
 	my %mods = map { ($_ => 1) } @mods;