diff options
| author | Zefram <zefram@fysh.org> | 2010-12-12 16:08:14 +0000 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-12 21:46:51 -0700 |
| commit | cc76b5cc1552a60539ae1e99cc0b9817087d4bc4 (patch) | |
| tree | 9409eb07ce6d196f836db8df318042986cf2e4a7 /ext/XS-APItest/APItest.xs | |
| parent | 68a9cf1a90f1a8fed74fdd419ad1ec538439e1c8 (diff) | |
| download | perl-cc76b5cc1552a60539ae1e99cc0b9817087d4bc4.tar.gz | |
APIify pad functions
Move several pad functions into the core API. Document the pad
functions more consistently for perlapi. Fix the interface issues
around delimitation of lexical variable names, providing _pvn, _pvs,
_pv, and _sv forms of pad_add_name and pad_findmy.
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 68533da58b..0b3a6cba3d 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -627,11 +627,7 @@ static OP *THX_parse_var(pTHX) } if(s-start < 2) croak("RPN syntax error"); lex_read_to(s); - { - /* because pad_findmy() doesn't really use length yet */ - SV *namesv = sv_2mortal(newSVpvn(start, s-start)); - varpos = pad_findmy(SvPVX(namesv), s-start, 0); - } + varpos = pad_findmy_pvn(start, s-start, 0); if(varpos == NOT_IN_PAD || PAD_COMPNAME_FLAGS_isOUR(varpos)) croak("RPN only supports \"my\" variables"); padop = newOP(OP_PADSV, 0); |