diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-23 18:00:19 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-23 18:00:19 +0000 |
| commit | c0c446747ad6c5bde53bc8415ca16ef77f6320f2 (patch) | |
| tree | 93c44ce727b19ed69ac39f8e982a9e958892bf57 /perl.h | |
| parent | 32777db77ef3ebe0f903c9762d2dd94575f9b4a6 (diff) | |
| download | perl-c0c446747ad6c5bde53bc8415ca16ef77f6320f2.tar.gz | |
Remove set magic from typeglobs. Remove typeglob magic entirely.
Typeglobs now never access the SvPVX, SvIVX or SvNVX when holding a
valid GvGP().
p4raw-id: //depot/perl@27289
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -3485,7 +3485,6 @@ Gid_t getegid (void); #define PERL_MAGIC_substr 'x' /* substr() lvalue */ #define PERL_MAGIC_defelem 'y' /* Shadow "foreach" iterator variable / smart parameter vivification */ -#define PERL_MAGIC_glob '*' /* GV (typeglob) */ #define PERL_MAGIC_arylen '#' /* Array length ($#ary) */ #define PERL_MAGIC_pos '.' /* pos() lvalue */ #define PERL_MAGIC_backref '<' /* for weak ref data */ @@ -4496,17 +4495,6 @@ MGVTBL_SET( ); MGVTBL_SET( - PL_vtbl_glob, - NULL, - MEMBER_TO_FPTR(Perl_magic_setglob), - NULL, - NULL, - NULL, - NULL, - NULL -); - -MGVTBL_SET( PL_vtbl_mglob, NULL, MEMBER_TO_FPTR(Perl_magic_setmglob), |