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

p4raw-id: //depot/perl@29724

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 $@;

diff --git a/ext/List/Util/t/p_first.t b/ext/List/Util/t/p_first.t
index 676d967..cd39ec4 100644 (file)
--- a/ext/List/Util/t/p_first.t
+++ b/ext/List/Util/t/p_first.t
@@ -5,4 +5,4 @@ $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
 $::PERL_ONLY = $::PERL_ONLY = 1; # Mustn't use it only once!
-do $f;
+do $f; die $@ if $@;

diff --git a/ext/List/Util/t/p_lln.t b/ext/List/Util/t/p_lln.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_lln.t
+++ b/ext/List/Util/t/p_lln.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 $@;

diff --git a/ext/List/Util/t/p_max.t b/ext/List/Util/t/p_max.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_max.t
+++ b/ext/List/Util/t/p_max.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 $@;

diff --git a/ext/List/Util/t/p_maxstr.t b/ext/List/Util/t/p_maxstr.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_maxstr.t
+++ b/ext/List/Util/t/p_maxstr.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 $@;

diff --git a/ext/List/Util/t/p_min.t b/ext/List/Util/t/p_min.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_min.t
+++ b/ext/List/Util/t/p_min.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 $@;

diff --git a/ext/List/Util/t/p_minstr.t b/ext/List/Util/t/p_minstr.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_minstr.t
+++ b/ext/List/Util/t/p_minstr.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 $@;

diff --git a/ext/List/Util/t/p_openhan.t b/ext/List/Util/t/p_openhan.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_openhan.t
+++ b/ext/List/Util/t/p_openhan.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 $@;

diff --git a/ext/List/Util/t/p_readonly.t b/ext/List/Util/t/p_readonly.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_readonly.t
+++ b/ext/List/Util/t/p_readonly.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 $@;

diff --git a/ext/List/Util/t/p_reduce.t b/ext/List/Util/t/p_reduce.t
index 676d967..cd39ec4 100644 (file)
--- a/ext/List/Util/t/p_reduce.t
+++ b/ext/List/Util/t/p_reduce.t
@@ -5,4 +5,4 @@ $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
 $::PERL_ONLY = $::PERL_ONLY = 1; # Mustn't use it only once!
-do $f;
+do $f; die $@ if $@;

diff --git a/ext/List/Util/t/p_refaddr.t b/ext/List/Util/t/p_refaddr.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_refaddr.t
+++ b/ext/List/Util/t/p_refaddr.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 $@;

diff --git a/ext/List/Util/t/p_reftype.t b/ext/List/Util/t/p_reftype.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_reftype.t
+++ b/ext/List/Util/t/p_reftype.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 $@;

diff --git a/ext/List/Util/t/p_shuffle.t b/ext/List/Util/t/p_shuffle.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_shuffle.t
+++ b/ext/List/Util/t/p_shuffle.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 $@;

diff --git a/ext/List/Util/t/p_sum.t b/ext/List/Util/t/p_sum.t
index d594ac5..48e7ef7 100644 (file)
--- a/ext/List/Util/t/p_sum.t
+++ b/ext/List/Util/t/p_sum.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 $@;

diff --git a/ext/List/Util/t/p_tainted.t b/ext/List/Util/t/p_tainted.t
index 4ebdd4e..5123a9f 100644 (file)
--- a/ext/List/Util/t/p_tainted.t
+++ b/ext/List/Util/t/p_tainted.t
@@ -7,4 +7,4 @@ $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
 my $filename = File::Spec->catfile(".", $f);
-do $filename;
+do $filename; die $@ if $@;