From 982cae563e0686b3be23f27d3e18a35edef36090 Mon Sep 17 00:00:00 2001
From: Brian Cassidy <bricas@cpan.org>
Date: Thu, 8 Dec 2011 11:48:07 -0400
Subject: confess when we are unable to fetch a spec via LWP

---
 lib/Net/HTTP/Spore.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib')

diff --git a/lib/Net/HTTP/Spore.pm b/lib/Net/HTTP/Spore.pm
index 356d376..ce56c92 100644
--- a/lib/Net/HTTP/Spore.pm
+++ b/lib/Net/HTTP/Spore.pm
@@ -121,6 +121,10 @@ sub _read_spec {
         my $req = HTTP::Request->new( GET => $spec_file );
         my $ua  = LWP::UserAgent->new();
         my $res = $ua->request($req);
+        unless( $res->is_success ) {
+            my $status = $res->status_line;
+            Carp::confess("Unabled to fetch $spec_file ($status)");
+        }
         $content = $res->content;
     }
     else {
-- 
cgit 1.4.1