summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-10-06 12:23:15 +0000
committerNicholas Clark <nick@ccl4.org>2007-10-06 12:23:15 +0000
commitf3a2811a943652950bfdb6408b09c32b4bf531d0 (patch)
tree4c1a0f267bae872b1fa8b30e7bf0e230bfbfef3b /regcomp.c
parent550e2ce03d201c2e16d6755c5e8b7feb3b2afe06 (diff)
downloadperl-f3a2811a943652950bfdb6408b09c32b4bf531d0.tar.gz
Avoid using *pvf functions when the format string is a fixed string.
p4raw-id: //depot/perl@32043
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index f649188429..2af79586cf 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8846,7 +8846,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
int i;
int rangestart = -1;
U8* bitmap = IS_ANYOF_TRIE(op) ? (U8*)ANYOF_BITMAP(o) : (U8*)TRIE_BITMAP(trie);
- Perl_sv_catpvf(aTHX_ sv, "[");
+ sv_catpvs(sv, "[");
for (i = 0; i <= 256; i++) {
if (i < 256 && BITMAP_TEST(bitmap,i)) {
if (rangestart == -1)
@@ -8863,7 +8863,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
rangestart = -1;
}
}
- Perl_sv_catpvf(aTHX_ sv, "]");
+ sv_catpvs(sv, "]");
}
} else if (k == CURLY) {