From 6d8daba2b1f377b59a3ffa0a55b6429703eb9672 Mon Sep 17 00:00:00 2001 From: Justin Davis Date: Thu, 11 Apr 2013 20:59:33 +0000 Subject: Better error reporting if sync with CPAN fails. --- preps/perl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'preps/perl') diff --git a/preps/perl b/preps/perl index 5e88b06..90f33d4 100755 --- a/preps/perl +++ b/preps/perl @@ -25,12 +25,11 @@ sub matchdist or err('PKGVAR env variable is unset'); if(!-f "$var/cpan.dists" || -M "$var/cpan.dists" > 1) { - print STDERR "$PROG: Refreshing local CPAN data... "; + print STDERR "$PROG: Refreshing local CPAN data.\n"; my $cwd = getcwd(); chdir $var or die "chdir: $!"; system 'fetchcpan'; - die "FAILED\n" unless($? == 0); - print STDERR "OK\n"; + exit 1 unless($? == 0); chdir $cwd or die "chdir: $!"; } -- cgit v1.2.3-24-g4f1b