1 files changed, 5 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index 658239a54a..630b130c88 100644
--- a/regexec.c
+++ b/regexec.c
@@ -634,8 +634,11 @@ char *prog;
 #define sayNO goto no
 #define saySAME(x) if (x) goto yes; else goto no
 	if (regnarrate) {
-	    PerlIO_printf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n", regindent*2, "",
-		scan - regprogram, regprop(scan), locinput);
+	    SV *prop = sv_newmortal();
+	    regprop(prop, scan);
+	    PerlIO_printf(Perl_debug_log, "%*s%2d%-8.8s\t<%.10s>\n",
+			  regindent*2, "", scan - regprogram,
+			  SvPVX(prop), locinput);
 	}
 #else
 #define sayYES return 1