From 6d8daba2b1f377b59a3ffa0a55b6429703eb9672 Mon Sep 17 00:00:00 2001
From: Justin Davis <jrcd83@gmail.com>
Date: Thu, 11 Apr 2013 20:59:33 +0000
Subject: Better error reporting if sync with CPAN fails.

---
 preps/perl.d/fetchcpan | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'preps/perl.d/fetchcpan')

diff --git a/preps/perl.d/fetchcpan b/preps/perl.d/fetchcpan
index b9ddeaa..dff7873 100755
--- a/preps/perl.d/fetchcpan
+++ b/preps/perl.d/fetchcpan
@@ -3,7 +3,7 @@
 mirror=${CPANMIRROR:-ftp://cpan.pair.com}
 path=/modules/02packages.details.txt.gz
 
-curl --silent "$mirror$path" | gzip -dc | awk '
+curl --silent "$mirror$path" | zcat 2>/dev/null | awk '
 NR < 10 { next }
 {
     file = a[split($3, a, "/")]
@@ -29,6 +29,8 @@ NR < 10 { next }
 }
 
 END {
+    if(NR == 0) exit(1)
+
     for (dist in dists) {
         ver = dists[dist]
         print dist, ver, paths[dist] | "sort > cpan.dists"
@@ -58,3 +60,10 @@ function decver (vs)
 }
 
 '
+
+if [ $? -ne 0 ]; then
+    echo "fetchcpan: failed to download package list from CPAN" 1>&2
+    exit 1
+fi
+
+exit 0
-- 
cgit v1.2.3-24-g4f1b