gv_fetchpv, gv_fetchpvn and gv_fetchsv take a bitmask of flags, rather

than a simple boolean, so passing FALSE or TRUE is bogus.

p4raw-id: //depot/perl@26415

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index d943d14308..18b2abf817 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6225,7 +6225,7 @@ Perl_save_re_context(pTHX)
 		GV *mgv;
 		char digits[TYPE_CHARS(long)];
 		const STRLEN len = my_sprintf(digits, "%lu", (long)i);
-		if ((mgv = gv_fetchpvn_flags(digits, len, FALSE, SVt_PV)))
+		if ((mgv = gv_fetchpvn_flags(digits, len, 0, SVt_PV)))
 		    save_scalar(mgv);
 	    }
 	}