diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-30 17:17:47 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-30 17:32:04 -0400 |
| commit | 0ce976210863e8fb8ceb7aadd908e72e7dab8125 (patch) | |
| tree | bf3508345f0d528bab23265a0b8182c3ff2a1b77 | |
| parent | 19109ff41bc2cac67c4a06ad7fc42e55d4c27573 (diff) | |
| download | parse-keyword-0ce976210863e8fb8ceb7aadd908e72e7dab8125.tar.gz parse-keyword-0ce976210863e8fb8ceb7aadd908e72e7dab8125.zip | |
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.
| -rw-r--r-- | Keyword.xs | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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: |