diff options
Diffstat (limited to 'lib/Net/HTTP')
-rw-r--r-- | lib/Net/HTTP/Spore.pm | 4 |
1 files changed, 4 insertions, 0 deletions
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 { |