summaryrefslogtreecommitdiff
path: root/ext/List
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-01-08 21:52:32 +0000
committerNicholas Clark <nick@ccl4.org>2007-01-08 21:52:32 +0000
commit7c09933ca11590e6a36fb0c235b6660a8b3c341d (patch)
tree21508ff1c52f7e043717d8816cc17f0eac28959e /ext/List
parente81465beff59e6c9907613fe00ebce59d81fb1e8 (diff)
downloadperl-7c09933ca11590e6a36fb0c235b6660a8b3c341d.tar.gz
do or die; for all the List::Util pure perl tests.
p4raw-id: //depot/perl@29724
Diffstat (limited to 'ext/List')
-rw-r--r--ext/List/Util/t/p_blessed.t2
-rw-r--r--ext/List/Util/t/p_first.t2
-rw-r--r--ext/List/Util/t/p_lln.t2
-rw-r--r--ext/List/Util/t/p_max.t2
-rw-r--r--ext/List/Util/t/p_maxstr.t2
-rw-r--r--ext/List/Util/t/p_min.t2
-rw-r--r--ext/List/Util/t/p_minstr.t2
-rw-r--r--ext/List/Util/t/p_openhan.t2
-rw-r--r--ext/List/Util/t/p_readonly.t2
-rw-r--r--ext/List/Util/t/p_reduce.t2
-rw-r--r--ext/List/Util/t/p_refaddr.t2
-rw-r--r--ext/List/Util/t/p_reftype.t2
-rw-r--r--ext/List/Util/t/p_shuffle.t2
-rw-r--r--ext/List/Util/t/p_sum.t2
-rw-r--r--ext/List/Util/t/p_tainted.t2
15 files changed, 15 insertions, 15 deletions
diff --git a/ext/List/Util/t/p_blessed.t b/ext/List/Util/t/p_blessed.t
index d594ac517c..48e7ef7dcd 100644
--- 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 676d96712e..cd39ec44be 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 676d96712e..cd39ec44be 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 d594ac517c..48e7ef7dcd 100644
--- 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 4ebdd4e39d..5123a9f6c1 100644
--- 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 $@;
View Lorry Controller Status