add lex_stuff_pvs()

New macro lex_stuff_pvs(), wrapping lex_stuff_pvn() for literal strings.

diff --git a/ext/XS-APItest-KeywordRPN/KeywordRPN.xs b/ext/XS-APItest-KeywordRPN/KeywordRPN.xs
index adb7e6b..a5dfcd9 100644 (file)
--- a/ext/XS-APItest-KeywordRPN/KeywordRPN.xs
+++ b/ext/XS-APItest-KeywordRPN/KeywordRPN.xs
@@ -166,7 +166,7 @@ static OP *THX_parse_keyword_stufftest(pTHX)
        } else if(c != /*{*/'}') {
                croak("syntax error");
        }
-       if(do_stuff) lex_stuff_pvn(" ", 1, 0);
+       if(do_stuff) lex_stuff_pvs(" ", 0);
        return newOP(OP_NULL, 0);
 }
 #define parse_keyword_stufftest() THX_parse_keyword_stufftest(aTHX)

diff --git a/handy.h b/handy.h
index d6205c5..bbeb1ff 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -314,6 +314,13 @@ Like C<hv_fetch>, but takes a literal string instead of a string/length pair.
 Like C<hv_store>, but takes a literal string instead of a string/length pair
 and omits the hash parameter.
 
+=head1 Lexer interface
+
+=for apidoc Amx|void|lex_stuff_pvs|const char *pv|U32 flags
+
+Like L</lex_stuff_pvn>, but takes a literal string instead of a
+string/length pair.
+
 =cut
 */
 
@@ -344,6 +351,8 @@ and omits the hash parameter.
   ((SV **)Perl_hv_common(aTHX_ (hv), NULL, STR_WITH_LEN(key), 0,       \
                         (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), (val), 0))
 
+#define lex_stuff_pvs(pv,flags) Perl_lex_stuff_pvn(aTHX_ STR_WITH_LEN(pv), flags)
+
 #define get_cvs(str, flags)                                    \
        Perl_get_cvn_flags(aTHX_ STR_WITH_LEN(str), (flags))