diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-08-19 09:24:45 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-08-19 09:24:45 -0500 |
commit | 5d58a24acf4361c2dd5ec1ed29d4cab4853d0adb (patch) | |
tree | 8dc63d6d2f63f96461d72ec5dcde05df2ddfbd9b /Fun.xs | |
parent | 6615f365c3cea887645a1cdc186b7a7f7e9fe93e (diff) | |
download | fun-5d58a24acf4361c2dd5ec1ed29d4cab4853d0adb.tar.gz fun-5d58a24acf4361c2dd5ec1ed29d4cab4853d0adb.zip |
apparently newATTRSUB takes care of this
Diffstat (limited to 'Fun.xs')
-rw-r--r-- | Fun.xs | 13 |
1 files changed, 0 insertions, 13 deletions
@@ -275,19 +275,6 @@ static OP *parse_fun(pTHX_ GV *namegv, SV *psobj, U32 *flagsp) name = newSVOP(OP_CONST, 0, function_name); code = newRV_inc((SV*)newATTRSUB(floor, name, NULL, NULL, block)); - ENTER; - { - dSP; - PUSHMARK(SP); - EXTEND(SP, 2); - PUSHs(function_name); - PUSHs(code); - PUTBACK; - call_pv("Fun::_install_fun", G_VOID); - PUTBACK; - } - LEAVE; - return newOP(OP_NULL, 0); } else { |