Commit | Line | Data |
---|---|---|
79628082 | 1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't'; | |
5 | @INC = '../lib'; | |
6 | require './test.pl'; | |
7 | } | |
8 | ||
ba92458f | 9 | plan tests => 3; |
79628082 | 10 | |
11 | eval { for (\2) { $_ = <FH> } }; | |
12 | like($@, 'Modification of a read-only value attempted', '[perl #19566]'); | |
13 | ||
ba92458f | 14 | { |
15 | open A,"+>a"; $a = 3; | |
16 | is($a .= <A>, 3, '#21628 - $a .= <A> , A eof'); | |
17 | close A; $a = 4; | |
18 | is($a .= <A>, 4, '#21628 - $a .= <A> , A closed'); | |
19 | unlink "a"; | |
20 | } |