From b8bea68cd642bf4455892e4fbac8ad398b694ec9 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 20 Oct 2009 20:25:16 +0000
Subject: [PATCH] Check for failure when running wget

---
 darcs-all |    6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/darcs-all b/darcs-all
index 69445d0..a80e6f8 100644
--- a/darcs-all
+++ b/darcs-all
@@ -118,6 +118,12 @@ sub download {
     my @cmd = ("wget", $from, "-O", $to);
     message "== running @cmd";
     system @cmd;
+    if ($? == -1) {
+        die "Failed to execute wget: $!\n";
+    }
+    elsif ($? != 0) {
+        die "wget failed: $?\n";
+    }
 }
 
 sub darcs {
-- 
1.7.10.4