From 5d58a24acf4361c2dd5ec1ed29d4cab4853d0adb Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 19 Aug 2012 09:24:45 -0500 Subject: apparently newATTRSUB takes care of this --- Fun.xs | 13 ------------- 1 file changed, 13 deletions(-) (limited to 'Fun.xs') diff --git a/Fun.xs b/Fun.xs index a9119b6..9488c80 100644 --- a/Fun.xs +++ b/Fun.xs @@ -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 { -- cgit v1.2.3-54-g00ecf