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.

2 files changed, 11 insertions, 2 deletions

diff --git a/metas/perl b/metas/perl
index 4b61175..23f4907 100755
--- a/metas/perl
+++ b/metas/perl
@@ -100,7 +100,7 @@ END_META
 
 	my $file = $cpath; $file =~ s{.*/}{};
 	system 'perl-dist' => $file;
-	return $?;
+	return $? >> 8;
 }
 
 exit main(@ARGV);
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;