Merge pull request #15 from samv/master

confess me your sins! :)
perlbal · Jun 14, 2012 · 9e0b06b · 9e0b06b
2 parents a7bd7de + 803e4c2
commit 9e0b06b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Perlbal/ClientHTTPBase.pm b/lib/Perlbal/ClientHTTPBase.pm
@@ -14,6 +14,7 @@ package Perlbal::ClientHTTPBase;
 use strict;
 use warnings;
 no  warnings qw(deprecated);
+use Carp qw(confess);
 
 use Sys::Syscall;
 use base "Perlbal::Socket";
@@ -286,7 +287,7 @@ sub event_read {
     $self->{alive_time} = $Perlbal::tick_time;
 
     # see if we have headers?
-    die "Shouldn't get here!  This is an abstract base class, pretty much, except in the case of the 'selector' role."
+    confess "Shouldn't get here!  This is an abstract base class, pretty much, except in the case of the 'selector' role."
         if $self->{req_headers};
 
     my $hd = $self->read_request_headers;