diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-11 16:02:24 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-12 20:28:56 -0800 |
commit | acd367ed7165d54fe7204b9e31c0b57fcf0223ba (patch) | |
tree | 28825827476b334bacd627ba46c7e26ba2298b84 | |
parent | 6711cb4f90cfacd285b7fabbb5337493678fc628 (diff) | |
download | perl-acd367ed7165d54fe7204b9e31c0b57fcf0223ba.tar.gz |
repeat.t: Correct comment
When a57276195 changed the eq to is(), the comment was not updated.
The test still works. (I tried introducing the bug it was testing
for via SP--, and it failed as expected.)
-rw-r--r-- | t/op/repeat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/repeat.t b/t/op/repeat.t index 15cf66eb89..8df5241912 100644 --- a/t/op/repeat.t +++ b/t/op/repeat.t @@ -137,8 +137,8 @@ my ($x, $y) = scalar ((1,2)x2); is($x, "22", 'list repeat in scalar context'); is($y, undef, ' no extra values on stack'); -# Make sure the stack doesn't get truncated too much - the left -# operand of the eq binop needs to remain! +# Make sure the stack doesn't get truncated too much - the first +# argument to is() needs to remain! is(77, scalar ((1,7)x2), 'stack truncation'); # ( )x in void context should not read preceding stack items |