X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F800_shikabased%2F014-subtype-as.t;h=3dc197b5bbc4331ddea72452efeb4d4483ab104b;hp=0a95057e55ee85d53572433207325b5b9f56c17a;hb=684db121da77d6c63be5a58e33606907ca2aa4fb;hpb=c68b41108207ca7568f6f99a66cb6d202623a236

diff --git a/t/800_shikabased/014-subtype-as.t b/t/800_shikabased/014-subtype-as.t
index 0a95057..3dc197b 100644
--- a/t/800_shikabased/014-subtype-as.t
+++ b/t/800_shikabased/014-subtype-as.t
@@ -64,6 +64,7 @@ isa_ok $f2, 'Foo';
 is ref($f2->as_only), 'Obj1';
 
 my $f3 = eval { Foo->new( any => Obj1->new ) };
+die $@ if $@;
 isa_ok $f3, 'Foo';
 is ref($f3->any), 'Obj1';