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 /t/op | |
| 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.)
Diffstat (limited to 't/op')
| -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 |