Add Scalar-List-Utils 1.02, from Graham Barr.

Now we have blessed, reftype, tainted, first, reduce, ...

p4raw-id: //depot/perl@9702

1 files changed, 20 insertions, 0 deletions

diff --git a/t/lib/u-first.t b/t/lib/u-first.t
new file mode 100755
index 0000000000..71f3de41f5
--- /dev/null
+++ b/t/lib/u-first.t
@@ -0,0 +1,20 @@
+BEGIN {
+	chdir 't' if -d 't';
+	@INC = '../lib';
+}
+
+use List::Util qw(first);
+
+print "1..4\n";
+
+print "not " unless defined &first;
+print "ok 1\n";
+
+print "not " unless 9 == first { 8 == ($_ - 1) } 9,4,5,6;
+print "ok 2\n";
+
+print "not " if defined(first { 0 } 1,2,3,4);
+print "ok 3\n";
+
+print "not " if defined(first { 0 });
+print "ok 4\n";