diff options
| author | Abigail <abigail@abigail.be> | 2016-11-15 23:51:53 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2017-01-16 19:18:11 +0100 |
| commit | 52b37024902e2235753cc53604567cfd4be0b15a (patch) | |
| tree | abf7097b9667b8f235a116f4826bd36e03c40605 /gv.c | |
| parent | c96809061c2def2e6554bf2f122c294e7396fb98 (diff) | |
| download | perl-52b37024902e2235753cc53604567cfd4be0b15a.tar.gz | |
Remove deprecation warnings related to $* and $#.
The magic variables $* and $# were deprecated in 5.000. Their magical
meaning was removed in Perl 5.10. Since then, a warning was issued
if the variables were used.
This warnings has been removed.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 14 |
1 files changed, 0 insertions, 14 deletions
@@ -2153,13 +2153,6 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, SvREADONLY_on(av); } break; - case '*': /* $* */ - case '#': /* $# */ - if (sv_type == SVt_PV) - /* diag_listed_as: $* is no longer supported */ - Perl_ck_warner_d(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), - "$%c is no longer supported", *name); - break; case '\010': /* $^H */ { HV *const hv = GvHVn(gv); @@ -2266,13 +2259,6 @@ S_maybe_multimagic_gv(pTHX_ GV *gv, const char *name, const svtype sv_type) require_tie_mod_s(gv, '!', "Errno", 1); else if (*name == '-' || *name == '+') require_tie_mod_s(gv, *name, "Tie::Hash::NamedCapture", 0); - } else if (sv_type == SVt_PV) { - if (*name == '*' || *name == '#') { - /* diag_listed_as: $* is no longer supported */ - Perl_ck_warner_d(aTHX_ packWARN2(WARN_DEPRECATED, - WARN_SYNTAX), - "$%c is no longer supported", *name); - } } if (sv_type==SVt_PV || sv_type==SVt_PVGV) { switch (*name) { |