From 2ab2432f89f35802dcfea6c1ddd3746f9638a8b1 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Sat, 21 Apr 2012 15:14:32 -0400
Subject: Make missing cpanmods message friendlier.

Scrapecore needs ~/.genpkg/var/cpanmods data to exist.
When it is missing try to give a friendlier error message.
---
 preps/perl.d/scrapecore | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'preps/perl.d')

diff --git a/preps/perl.d/scrapecore b/preps/perl.d/scrapecore
index 25f5c80..c8bdac5 100755
--- a/preps/perl.d/scrapecore
+++ b/preps/perl.d/scrapecore
@@ -208,6 +208,9 @@ sub coreonly
 	my %mods = map { @$_ } @_;
 	my $var = $ENV{'PKGVAR'} || "$ENV{'HOME'}/.genpkg/var";
 	my $path = "$var/cpanmods";
+	unless(-f $path){
+		die "$0: $path is missing. Generate it with fetchcpan.\n";
+	}
 	open(my $if, '<', $path) or die("open $path failed: $!");
 
 	my @dists;
-- 
cgit v1.2.3-24-g4f1b