Sys::Syslog patch to allow unix domain sockets

[p5sagit/p5-mst-13.2.git] / t / op / array.t

diff --git a/t/op/array.t b/t/op/array.t
old mode 100644 (file)
new mode 100755 (executable)
index 18fe288..ed471b4
--- a/t/op/array.t
+++ b/t/op/array.t
@@ -1,6 +1,6 @@
 #!./perl
 
-# $Header: array.t,v 4.0 91/03/20 01:51:31 lwall Locked $
+# $RCSfile: array.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:37 $
 
 print "1..36\n";
 
@@ -23,9 +23,9 @@ if (join('',@ary) eq '1234') {print "ok 8\n";} else {print "not ok 8\n";}
 
 if ($ary[5] eq '') {print "ok 9\n";} else {print "not ok 9\n";}
 
-$#ary += 1;    # see if we can recover element 5
+$#ary += 1;    # see if element 5 gone for good
 if ($#ary == 5) {print "ok 10\n";} else {print "not ok 10\n";}
-if ($ary[5] == 5) {print "ok 11\n";} else {print "not ok 11\n";}
+if (defined $ary[5]) {print "not ok 11\n";} else {print "ok 11\n";}
 
 $[ = 0;
 @foo = ();