From 0ce976210863e8fb8ceb7aadd908e72e7dab8125 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 30 Jul 2013 17:17:47 -0400 Subject: this actually isn't necessary here (#3) it's not public api, so this prevents building on windows (and other platforms that don't expose everything for linking), and we're building the whole optree by hand at once, so there's no reason to use fixup functions like this whose only use is for when we're building the optree incrementally during parsing. --- Keyword.xs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/Keyword.xs b/Keyword.xs index eac81d5..b5dfdc0 100644 --- a/Keyword.xs +++ b/Keyword.xs @@ -7,10 +7,6 @@ #define cv_clone(a) Perl_cv_clone(aTHX_ a) #endif -#ifndef scalar -#define scalar(a) Perl_scalar(aTHX_ a) -#endif - static SV *parser_fn(OP *(fn)(pTHX_ U32), bool named) { I32 floor; @@ -80,7 +76,7 @@ static OP *parser_callback(pTHX_ GV *namegv, SV *psobj, U32 *flagsp) } return newUNOP(OP_ENTERSUB, OPf_STACKED, - newCVREF(0, scalar(newSVOP(OP_CONST, 0, args_generator)))); + newCVREF(0, newSVOP(OP_CONST, 0, args_generator))); } /* TODO: -- cgit v1.2.3-54-g00ecf