summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2016-09-21 15:38:42 +0100
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2016-09-21 15:42:44 +0100
commitcf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8 (patch)
tree632ffeef6d10d5675c3a3012751964b5bec486b0 /regcomp.c
parent2c4188f3fe3f46d4ebe3f23a094a7cf96ebe87f1 (diff)
downloadperl-cf97b304d6039d9a3ad08c2e75ae3dbf3cf32dc8.tar.gz
Change sv_setpvn(…, "…", …) to sv_setpvs(…, "…")
The dual-life dists affected use Devel::PPPort, so can safely use sv_setpvs() even though it wasn't added until Perl v5.10.0.
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 8806c343ba..b00b385101 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -18901,7 +18901,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_
PERL_ARGS_ASSERT_REGPROP;
- sv_setpvn(sv, "", 0);
+ sv_setpvs(sv, "");
if (OP(o) > REGNODE_MAX) /* regnode.type is unsigned */
/* It would be nice to FAIL() here, but this may be called from