add lex_stuff_pvs()

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

2 files changed, 10 insertions, 1 deletions

diff --git a/ext/XS-APItest-KeywordRPN/KeywordRPN.xs b/ext/XS-APItest-KeywordRPN/KeywordRPN.xs
index adb7e6b7bc..a5dfcd9adc 100644
--- 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 d6205c52fc..bbeb1ff0f5 100644
--- 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))