diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-07-02 19:53:05 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-07-25 23:48:03 -0700 |
| commit | 19130678b46bff1627099e92f818913a1bade9b0 (patch) | |
| tree | 5768cd6ac1f3ac3302379db75ea0e3243294f6b4 /lib/overload.t | |
| parent | a888bde5d7a5dd33725c4f5c4b3220e152ab9f5e (diff) | |
| download | perl-19130678b46bff1627099e92f818913a1bade9b0.tar.gz | |
Make overloaded constants always read-only
They were not read-only if the constant handler returned a shared
hash key scalar.
This was brought up in bug #109744.
Diffstat (limited to 'lib/overload.t')
| -rw-r--r-- | lib/overload.t | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/overload.t b/lib/overload.t index aa99cc298b..3af969bc69 100644 --- a/lib/overload.t +++ b/lib/overload.t @@ -1301,7 +1301,6 @@ foreach my $op (qw(<=> == != < <= > >=)) { 'constant overloading makes read-only constants'; BEGIN { overload::constant integer => sub { __PACKAGE__ }; } eval { ${\5} = 'whatever' }; - local $::TODO = ' '; like $@, qr/^Modification of a read-only value attempted at /, '... even with shared hash key scalars'; } |