diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-06-23 07:08:24 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-07-25 23:48:00 -0700 |
| commit | 2484f8dbbb584bb7bc7107e23ebd49f694eb3ea2 (patch) | |
| tree | 70cc9582216e85b9e6499e674cb7d2a77dae7b88 /t/uni | |
| parent | 8e079c2a69673209538b040ae2389f2248682dd9 (diff) | |
| download | perl-2484f8dbbb584bb7bc7107e23ebd49f694eb3ea2.tar.gz | |
Stop folding of ops from changing mutability
If $a+$b produces a mutable value, then so should 1+2.
Diffstat (limited to 't/uni')
| -rw-r--r-- | t/uni/readline.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/uni/readline.t b/t/uni/readline.t index 495172ca98..a83558e070 100644 --- a/t/uni/readline.t +++ b/t/uni/readline.t @@ -13,7 +13,8 @@ use open qw( :utf8 :std ); # [perl #19566]: sv_gets writes directly to its argument via # TARG. Test that we respect SvREADONLY. -eval { for (\2) { $_ = <Fʜ> } }; +use constant roref=>\2; +eval { for (roref) { $_ = <Fʜ> } }; like($@, 'Modification of a read-only value attempted', '[perl #19566]'); # [perl #21628] |