diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-11-02 04:59:47 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-11-02 04:59:47 +0000 |
| commit | 7f6b17e490f2974227b30f0c61ca2e8729fa877f (patch) | |
| tree | b0d6e09746f544e6d833111cd85af970285c8fa4 /t/op/list.t | |
| parent | d5fc3e7087d5aeade68cb64da300c8b07e550cc2 (diff) | |
| download | perl-7f6b17e490f2974227b30f0c61ca2e8729fa877f.tar.gz | |
Ambiguous test cases may be hazardous to your health.
p4raw-id: //depot/perl@25950
Diffstat (limited to 't/op/list.t')
| -rwxr-xr-x | t/op/list.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/list.t b/t/op/list.t index d655f6bbf8..cdf8cdd4e7 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"; } |