work around Structured TC bug?

rafl · Apr 6, 2009 · 98625d8 · 98625d8
1 parent 7dec82b
commit 98625d8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MooseX/Method/Signatures/Meta/Method.pm b/lib/MooseX/Method/Signatures/Meta/Method.pm
@@ -123,7 +123,7 @@ sub wrap {
             return preserve_context { $self->actual_body->(@args) }
                 after => sub {
                     if (defined (my $msg = $self->_return_type_constraint->validate(\@_))) {
-                        confess $msg;
+                        confess $msg unless $msg eq '1';
                     }
                 };
         };
@@ -337,7 +337,7 @@ sub validate {
         if $coerced == $args;
 
     if (defined (my $msg = $self->type_constraint->validate($coerced))) {
-        confess $msg;
+        confess $msg unless $msg eq '1';
     }
 
     return @{ $coerced->[0] }, map { $coerced->[1]->{$_} } @named;