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 /mg.c | |
| parent | cdd3ba141d0471cdda288698b2e3ab4be509f775 (diff) | |
| download | perl-8ae1fe26cb95d1274fd14fd03b3c3d0928a2403f.tar.gz | |
Remove the deprecated $# variable
p4raw-id: //depot/perl@24908
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -879,9 +879,6 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) if (PL_ors_sv) sv_copypv(sv, PL_ors_sv); break; - case '#': - sv_setpv(sv,PL_ofmt); - break; case '!': #ifdef VMS sv_setnv(sv, (NV)((errno == EVMSERR) ? vaxc$errno : errno)); @@ -2293,11 +2290,6 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) PL_ofs_sv = Nullsv; } break; - case '#': - if (PL_ofmt) - Safefree(PL_ofmt); - PL_ofmt = savesvpv(sv); - break; case '[': PL_compiling.cop_arybase = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv); break; |