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 /ext/Devel | |
| 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 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 1be75ccb18..f21ca6cefa 100644 --- a/ext/Devel/Peek/t/Peek.t +++ b/ext/Devel/Peek/t/Peek.t @@ -305,14 +305,10 @@ do_test(17, *a, 'SV = PVGV\\($ADDR\\) at $ADDR REFCNT = 5 - FLAGS = \\(SMG,SCREAM,MULTI(?:,IN_PAD)?\\) + FLAGS = \\(SCREAM,MULTI(?:,IN_PAD)?\\) IV = 0 NV = 0 PV = 0 - MAGIC = $ADDR - MG_VIRTUAL = &PL_vtbl_glob - MG_TYPE = PERL_MAGIC_glob\(\*\) - MG_OBJ = $ADDR NAME = "a" NAMELEN = 1 GvSTASH = $ADDR\\t"main" |