It should not matter if you have not built the XS. The .pm files contain
pure perl fallbacks for that case, so they should still be tested.
Graham.
On Thu, Apr 19, 2001 at 05:40:14PM -0700, Peter Prymmer wrote:
>
> 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
>
>
>
