From 054ceeebc7f6acad2772faa4fa88617c35f4a88a Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Wed, 8 Feb 2023 18:14:14 +0000 Subject: Accept field VAR = EXPR on field vars Allows non-constant expressions with side effects. Evaluated during the constructor of each instance. --- pp_proto.h | 1 + 1 file changed, 1 insertion(+) (limited to 'pp_proto.h') diff --git a/pp_proto.h b/pp_proto.h index a4ec0da86f..6a8a871e82 100644 --- a/pp_proto.h +++ b/pp_proto.h @@ -133,6 +133,7 @@ PERL_CALLCONV OP *Perl_pp_i_ne(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_i_negate(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_i_subtract(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_index(pTHX) __attribute__visibility__("hidden"); +PERL_CALLCONV OP *Perl_pp_initfield(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_int(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_introcv(pTHX) __attribute__visibility__("hidden"); PERL_CALLCONV OP *Perl_pp_ioctl(pTHX) __attribute__visibility__("hidden"); -- cgit v1.2.1