X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regcomp.c;h=dd2188f717ca02f860522c492735bf2eb11f06bf;hb=a62746fa01f7841968350e8f568bbd10789c4213;hp=744b380f27f4ae0e5db008547f1857ae8ed00949;hpb=551405c409d33bc8cd0a20177c4ee21a204d18b5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regcomp.c b/regcomp.c
index 744b380..dd2188f 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6072,7 +6072,7 @@ Perl_pregfree(pTHX_ struct regexp *r)
 			reg_trie_data *trie=(reg_trie_data*)r->data->data[n];
 			U32 refcount;
 			OP_REFCNT_LOCK;
-			refcount = trie->refcount--;
+			refcount = --trie->refcount;
 			OP_REFCNT_UNLOCK;
 			if ( !refcount ) {
 			    Safefree(trie->charmap);
@@ -6218,8 +6218,8 @@ Perl_save_re_context(pTHX)
 	    for (i = 1; i <= rx->nparens; i++) {
 		GV *mgv;
 		char digits[TYPE_CHARS(long)];
-		sprintf(digits, "%lu", (long)i);
-		if ((mgv = gv_fetchpv(digits, FALSE, SVt_PV)))
+		const STRLEN len = my_sprintf(digits, "%lu", (long)i);
+		if ((mgv = gv_fetchpvn_flags(digits, len, FALSE, SVt_PV)))
 		    save_scalar(mgv);
 	    }
 	}