Deprecate setting ${^ENCODING}

The commiter added a no warnings in t/op/leaky-magic.t, and made other
minor changes because of rebasing issues.

1 files changed, 4 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index e9b61e8a7a..679b309f86 100644
--- a/mg.c
+++ b/mg.c
@@ -2666,6 +2666,10 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
                 else { /* Use the regular global */
                     SvREFCNT_dec(PL_encoding);
                     if (SvOK(sv) || SvGMAGICAL(sv)) {
+                        if (PL_localizing != 2) {
+                            Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED),
+                                          "Setting ${^ENCODING} is deprecated");
+                        }
                         PL_encoding = newSVsv(sv);
                     }
                     else {