Hi,
The following patch helps those platforms that do not have "List/Util"
in their $Config{extensions} [VMS will get it real soon now (tm)]:
diff -ru perl.9742/t/lib/u-blessed.t perl/t/lib/u-blessed.t
--- perl.9742/t/lib/u-blessed.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-blessed.t Thu Apr 19 17:11:28 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use Scalar::Util qw(blessed);
diff -ru perl.9742/t/lib/u-dualvar.t perl/t/lib/u-dualvar.t
--- perl.9742/t/lib/u-dualvar.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-dualvar.t Thu Apr 19 17:11:50 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
BEGIN {
diff -ru perl.9742/t/lib/u-first.t perl/t/lib/u-first.t
--- perl.9742/t/lib/u-first.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-first.t Thu Apr 19 17:12:08 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(first);
diff -ru perl.9742/t/lib/u-max.t perl/t/lib/u-max.t
--- perl.9742/t/lib/u-max.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-max.t Thu Apr 19 17:12:24 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(max);
diff -ru perl.9742/t/lib/u-maxstr.t perl/t/lib/u-maxstr.t
--- perl.9742/t/lib/u-maxstr.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-maxstr.t Thu Apr 19 17:10:58 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(maxstr);
diff -ru perl.9742/t/lib/u-min.t perl/t/lib/u-min.t
--- perl.9742/t/lib/u-min.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-min.t Thu Apr 19 17:12:47 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(min);
diff -ru perl.9742/t/lib/u-minstr.t perl/t/lib/u-minstr.t
--- perl.9742/t/lib/u-minstr.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-minstr.t Thu Apr 19 17:13:03 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(minstr);
diff -ru perl.9742/t/lib/u-readonly.t perl/t/lib/u-readonly.t
--- perl.9742/t/lib/u-readonly.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-readonly.t Thu Apr 19 17:13:29 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use Scalar::Util qw(readonly);
diff -ru perl.9742/t/lib/u-reduce.t perl/t/lib/u-reduce.t
--- perl.9742/t/lib/u-reduce.t Sat Apr 14 14:05:23 2001
+++ perl/t/lib/u-reduce.t Thu Apr 19 17:13:55 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(reduce min);
diff -ru perl.9742/t/lib/u-reftype.t perl/t/lib/u-reftype.t
--- perl.9742/t/lib/u-reftype.t Sat Apr 14 14:05:24 2001
+++ perl/t/lib/u-reftype.t Thu Apr 19 17:14:14 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use Scalar::Util qw(reftype);
diff -ru perl.9742/t/lib/u-sum.t perl/t/lib/u-sum.t
--- perl.9742/t/lib/u-sum.t Sat Apr 14 14:05:24 2001
+++ perl/t/lib/u-sum.t Thu Apr 19 17:14:34 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use List::Util qw(sum);
diff -ru perl.9742/t/lib/u-tainted.t perl/t/lib/u-tainted.t
--- perl.9742/t/lib/u-tainted.t Sat Apr 14 20:04:13 2001
+++ perl/t/lib/u-tainted.t Thu Apr 19 17:14:54 2001
@@ -3,6 +3,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
use lib qw(blib/lib blib/arch);
diff -ru perl.9742/t/lib/u-weak.t perl/t/lib/u-weak.t
--- perl.9742/t/lib/u-weak.t Sat Apr 14 19:51:28 2001
+++ perl/t/lib/u-weak.t Thu Apr 19 17:15:20 2001
@@ -1,6 +1,11 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
+ require Config; import Config;
+ if ($Config{extensions} !~ /\bList\/Util\b/) {
+ print "1..0 # Skip: List::Util was not built\n";
+ exit 0;
+ }
}
BEGIN {
End of Patch.
Peter Prymmer
