diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-09-19 17:43:21 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-09-19 17:43:21 +0200 |
commit | 436e4aacde005119cc1005d5e9aecc3b707d16fc (patch) | |
tree | 976af6106de9320d79e2e5f37f4c1580cd363a57 /op.c | |
parent | 8b31d4e4418231a55583884517e227471284c99f (diff) | |
download | perl-436e4aacde005119cc1005d5e9aecc3b707d16fc.tar.gz |
Remove MAD-only debugging code from Perl_newATTRSUB_flags().
When MAD was enabled, if the cv under compilation was named "import" it was
assigned to PL_formfeed, and its address issued as an mandatory warning.
The use of PL_formfeed was only ever intended as a way to enter a debugger.
See commits a2edbdc9c7ad6335 and c1bd9b63a6f9fb1f, which removed the other
places that co-opted PL_formfeed for MAD debugging purposes.
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 7 |
1 files changed, 0 insertions, 7 deletions
@@ -7571,13 +7571,6 @@ Perl_newATTRSUB_flags(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, cv = PL_compcv; if (name) { GvCV_set(gv, cv); - if (PL_madskills) { - if (strEQ(name, "import")) { - PL_formfeed = MUTABLE_SV(cv); - /* diag_listed_as: SKIPME */ - Perl_warner(aTHX_ packWARN(WARN_VOID), "0x%"UVxf"\n", PTR2UV(cv)); - } - } GvCVGEN(gv) = 0; if (HvENAME_HEK(GvSTASH(gv))) /* sub Foo::bar { (shift)+1 } */ |