summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorMarcus Holland-Moritz <mhx-perl@gmx.net>2004-03-09 19:09:20 +0000
committerMarcus Holland-Moritz <mhx-perl@gmx.net>2004-03-09 19:09:20 +0000
commita8819417e80aa9d32c750ac973516c321adba4cd (patch)
treef65045b91f66c2f8d7e40073c08e498a3e0d2510 /t
parent6b75d741eabd2f8d29b97270b6ce80b236b12a26 (diff)
downloadperl-a8819417e80aa9d32c750ac973516c321adba4cd.tar.gz
Revert change #22472, but keep the new tests.
p4raw-link: @22472 on //depot/perl: 6b75d741eabd2f8d29b97270b6ce80b236b12a26 p4raw-id: //depot/perl@22473
Diffstat (limited to 't')
-rwxr-xr-xt/op/range.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/range.t b/t/op/range.t
index dcf0fcf8a5..ce9bbf675b 100755
--- a/t/op/range.t
+++ b/t/op/range.t
@@ -93,7 +93,7 @@ print join(":", map "[$_]", "B".."") eq '' ? "ok 26\n" : "not ok 26\n";
print join(":", map "[$_]", "B"..undef) eq '' ? "ok 27\n" : "not ok 27\n";
# undef..undef used to segfault
-print join(":", map "[$_]", undef..undef) eq '[0]' ? "ok 28\n" : "not ok 28\n";
+print join(":", map "[$_]", undef..undef) eq '[]' ? "ok 28\n" : "not ok 28\n";
# also test undef in foreach loops
@foo=(); push @foo, $_ for undef..2;
@@ -121,4 +121,4 @@ print join(":", map "[$_]", @foo) eq '' ? "ok 35\n" : "not ok 35\n";
print join(":", map "[$_]", @foo) eq '' ? "ok 36\n" : "not ok 36\n";
@foo=(); push @foo, $_ for undef..undef;
-print join(":", map "[$_]", @foo) eq '[0]' ? "ok 37\n" : "not ok 37\n";
+print join(":", map "[$_]", @foo) eq '[]' ? "ok 37\n" : "not ok 37\n";