From 6a64f1e970411510c51165da83fdece602649f1c Mon Sep 17 00:00:00 2001 From: Justin Davis Date: Tue, 17 Jan 2012 11:30:28 -0500 Subject: 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. --- metas/perl.d/perl-dist | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'metas/perl.d') 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; -- cgit v1.2.3-24-g4f1b