do or die; for all the List::Util pure perl tests.

[p5sagit/p5-mst-13.2.git] / ext / List / Util / t / p_blessed.t

diff --git a/ext/List/Util/t/p_blessed.t b/ext/List/Util/t/p_blessed.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_blessed.t
+++ b/ext/List/Util/t/p_blessed.t
@@ -4,4 +4,4 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do $f;
+do $f; die $@ if $@;