Permalink
Browse files

Pass HTTP::Exceptions up the call chain

  • Loading branch information...
ctfliblime committed Jun 15, 2011
1 parent 3f54e5a commit 935d818e8306c9b438f6d3cf01c6fb207d060493
Showing with 1 addition and 0 deletions.
  1. +1 −0 lib/Squatting.pm
View
@@ -139,6 +139,7 @@ sub service {
my $content;
eval { $content = $c->$method(@args) };
+ die $@ if (ref($@) =~ /^HTTP::Exception/); # Pass HTTP::Exceptions on up
warn "EXCEPTION: $@" if ($@);
my $cookies = $c->cookies;

0 comments on commit 935d818

Please sign in to comment.