[perl #103492] Give lvalue cx to (s)printf args

Or potential lvalue context, like function calls.

The %n format code’s existence renders these two very much like func-
tion calls, as they can modify their arguments.

This allows sprintf("...%n", substr ...) to work.

1 files changed, 1 insertions, 1 deletions

diff --git a/opcode.h b/opcode.h
index 709e92c431..5f242a01a3 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1430,7 +1430,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */
 	Perl_ck_fun,		/* vec */
 	Perl_ck_index,		/* index */
 	Perl_ck_index,		/* rindex */
-	Perl_ck_fun,		/* sprintf */
+	Perl_ck_lfun,		/* sprintf */
 	Perl_ck_fun,		/* formline */
 	Perl_ck_fun,		/* ord */
 	Perl_ck_fun,		/* chr */