diff options
| author | Josh ben Jore <jjore@cpan.org> | 2010-07-13 23:56:29 -0700 |
|---|---|---|
| committer | Josh ben Jore <jjore@cpan.org> | 2010-07-14 08:10:16 -0700 |
| commit | 5b88351f7cdb2869b27557a7b14d688598019402 (patch) | |
| tree | f649df9e576a02ae1f6610f11e31800621018a11 /t/op | |
| parent | f72e8700d8f634d185a0ab589cfaf62386cd6a21 (diff) | |
| download | perl-5b88351f7cdb2869b27557a7b14d688598019402.tar.gz | |
Add t/op/readline.t docs
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/readline.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/readline.t b/t/op/readline.t index 1069a97595..a71a934356 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -8,9 +8,12 @@ BEGIN { plan tests => 18; +# [perl #19566]: sv_gets writes directly to its argument via +# TARG. Test that we respect SvREADONLY. eval { for (\2) { $_ = <FH> } }; like($@, 'Modification of a read-only value attempted', '[perl #19566]'); +# [perl #21628] { my $file = tempfile(); open A,'+>',$file; $a = 3; @@ -19,7 +22,8 @@ like($@, 'Modification of a read-only value attempted', '[perl #19566]'); is($a .= <A>, 4, '#21628 - $a .= <A> , A closed'); } -# 82 is chosen to exceed the length for sv_grow in do_readline (80) +# [perl #21614]: 82 is chosen to exceed the length for sv_grow in +# do_readline (80) foreach my $k (1, 82) { my $result = runperl (stdin => '', stderr => 1, |