diff options
-rw-r--r-- | Fun.xs | 13 | ||||
-rw-r--r-- | lib/Fun.pm | 8 |
2 files changed, 0 insertions, 21 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 { @@ -59,14 +59,6 @@ sub fun { return $code; } -sub _install_fun { - my ($name, $code) = @_; - - my $caller = caller; - no strict 'refs'; - *{ $caller . '::' . $name } = $code; -} - =head1 BUGS No known bugs. |