Better error reporting if sync with CPAN fails.

1 files changed, 2 insertions, 3 deletions

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: $!";
 	}