From 69974ce61d7459da5eda22eb31d730128757db37 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 31 Dec 2011 23:24:57 -0800 Subject: [perl #103492] Give lvalue cx to (s)printf args MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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. --- opcode.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'opcode.h') 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 */ -- cgit v1.2.1