diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-20 11:00:31 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-20 11:00:31 +0000 |
| commit | 8ae1fe26cb95d1274fd14fd03b3c3d0928a2403f (patch) | |
| tree | fcb52651b7d9991dc1b04d83713a4c24c68130f0 /gv.c | |
| parent | cdd3ba141d0471cdda288698b2e3ab4be509f775 (diff) | |
| download | perl-8ae1fe26cb95d1274fd14fd03b3c3d0928a2403f.tar.gz | |
Remove the deprecated $# variable
p4raw-id: //depot/perl@24908
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -1031,15 +1031,11 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, goto magicalize; } case '*': - if (sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX)) - Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), - "$* is no longer supported"); - break; case '#': if (sv_type == SVt_PV && ckWARN2(WARN_DEPRECATED, WARN_SYNTAX)) Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), - "Use of $# is deprecated"); - goto magicalize; + "$%c is no longer supported", *name); + break; case '|': sv_setiv(GvSV(gv), (IV)(IoFLAGS(GvIOp(PL_defoutgv)) & IOf_FLUSH) != 0); goto magicalize; |