From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 2 Nov 2005 04:59:47 +0000 (+0000)
Subject: Ambiguous test cases may be hazardous to your health.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7f6b17e490f2974227b30f0c61ca2e8729fa877f;p=p5sagit%2Fp5-mst-13.2.git

Ambiguous test cases may be hazardous to your health.

p4raw-id: //depot/perl@25950
---

diff --git a/t/op/list.t b/t/op/list.t
index d655f6b..cdf8cdd 100755
--- a/t/op/list.t
+++ b/t/op/list.t
@@ -96,7 +96,7 @@ for ($x = 0; $x < 3; $x++) {
     print "not " if join(':',@b) ne '30:';
     print "ok 30\n";
 
-    my @d = ()[1..1];
-    print "not " if @d != undef;
+    my $size = scalar(()[1..1]);
+    print "not " if $size != 0;
     print "ok 31\n";
 }