diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/readline.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/readline.t b/t/op/readline.t index ae043123da..1bc9ef44f7 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -6,8 +6,15 @@ BEGIN { require './test.pl'; } -plan tests => 1; +plan tests => 3; eval { for (\2) { $_ = <FH> } }; like($@, 'Modification of a read-only value attempted', '[perl #19566]'); +{ + open A,"+>a"; $a = 3; + is($a .= <A>, 3, '#21628 - $a .= <A> , A eof'); + close A; $a = 4; + is($a .= <A>, 4, '#21628 - $a .= <A> , A closed'); + unlink "a"; +} |