[Bps-public-commit] r17467 - in Net-Trac/trunk: .

[trs at bestpractical.com]

Author: trs
Date: Tue Dec 30 22:55:21 2008
New Revision: 17467

Modified:
   Net-Trac/trunk/   (props changed)
   Net-Trac/trunk/Makefile.PL
   Net-Trac/trunk/lib/Net/Trac/Ticket.pm

Log:
 r43324 at zot:  tom | 2008-12-30 22:55:15 -0500
 - Include a _die_on_error so that it won't just fail without reason
 - Update deps


Modified: Net-Trac/trunk/Makefile.PL
==============================================================================
--- Net-Trac/trunk/Makefile.PL	(original)
+++ Net-Trac/trunk/Makefile.PL	Tue Dec 30 22:55:21 2008
@@ -7,6 +7,7 @@
 license  'perl';
 
 requires 'Moose';
+requires 'Moose::Util::TypeConstraints';
 requires 'URI';
 requires 'IO::Scalar';
 requires 'XML::Feed';

Modified: Net-Trac/trunk/lib/Net/Trac/Ticket.pm
==============================================================================
--- Net-Trac/trunk/lib/Net/Trac/Ticket.pm	(original)
+++ Net-Trac/trunk/lib/Net/Trac/Ticket.pm	Tue Dec 30 22:55:21 2008
@@ -121,6 +121,8 @@
     );
 
     my $reply = $self->connection->mech->response;
+    $self->connection->_die_on_error( $reply->base->as_string );
+
     if ($reply->title =~ /^#(\d+)/) {
         my $id = $1;
         $self->load($id);