diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-08-08 18:53:20 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-08-14 11:44:20 +0200 |
| commit | 10f9b9bf77ed09ee67da058d1ba1658a4ce67626 (patch) | |
| tree | c7826b1a277b439fcc38aead5cdee3a7e8f29b6a /t/re/subst.t | |
| parent | a149d1180209525972d84fd1a62f488da83e568a (diff) | |
| download | perl-10f9b9bf77ed09ee67da058d1ba1658a4ce67626.tar.gz | |
move Internals::hv_clear_placeholders() to Hash::Util::_clear_placeholders()
There is no reason for this code to be in Internals:: or in universal.c at
all, it should only be used from Hash::Util during things like lock_keys().
Moves the function to the XS code in Hash::Util, and renames it as well,
along with commented out documentation for what it does.
Diffstat (limited to 't/re/subst.t')
| -rw-r--r-- | t/re/subst.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/re/subst.t b/t/re/subst.t index 26a78c774d..2de1a7b7be 100644 --- a/t/re/subst.t +++ b/t/re/subst.t @@ -996,7 +996,7 @@ SKIP:{ /e; }; is $locker{key}, '3', 'locking target in $hash{key} =~ s//.../e'; - like $@, qr/^Modification of a read-only value/, 'err msg'; + like $@, qr/^Modification of a read-only value/, 'err msg' . ($@ ? ": $@" : ""); } delete $::{does_not_exist}; # just in case eval { no warnings; $::{does_not_exist}=~s/(?:)/*{"does_not_exist"}; 4/e }; |