Ensure that constant folding runs with IN_PERL_RUNTIME true, by copying

the current compiling cop to a different address. This ensures that
lexical hints are correctly honoured, and allows us to fold sprintf.

p4raw-id: //depot/perl@33369

1 files changed, 1 insertions, 1 deletions

diff --git a/opcode.h b/opcode.h
index 29e4984a9e..aa57e212ae 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1667,7 +1667,7 @@ EXTCONST U32 PL_opargs[] = {
 	0x0022281c,	/* vec */
 	0x0122291c,	/* index */
 	0x0122291c,	/* rindex */
-	0x0004280d,	/* sprintf */
+	0x0004280f,	/* sprintf */
 	0x00042805,	/* formline */
 	0x0001379e,	/* ord */
 	0x0001378e,	/* chr */