diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-08 18:14:14 +0000 |
---|---|---|
committer | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-02-10 14:38:44 +0000 |
commit | 054ceeebc7f6acad2772faa4fa88617c35f4a88a (patch) | |
tree | af2d9c0d75e3f10ee26f575e7dab8973e757dd83 /regen | |
parent | e3b003dd8ca8d881450f6c96297ffa35f6a92ed1 (diff) | |
download | perl-054ceeebc7f6acad2772faa4fa88617c35f4a88a.tar.gz |
Accept field VAR = EXPR on field vars
Allows non-constant expressions with side effects. Evaluated during the
constructor of each instance.
Diffstat (limited to 'regen')
-rw-r--r-- | regen/op_private | 5 | ||||
-rw-r--r-- | regen/opcodes | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/regen/op_private b/regen/op_private index b074a95c50..54ef8ddac9 100644 --- a/regen/op_private +++ b/regen/op_private @@ -876,6 +876,11 @@ addbits('helemexistsor', 7 => qw(OPpHELEMEXISTSOR_DELETE DELETE), ); +addbits('initfield', + 1 => qw(OPpINITFIELD_AV INITFIELD_AV), + 2 => qw(OPpINITFIELD_HV INITFIELD_HV), +); + 1; # ex: set ts=8 sts=4 sw=4 et: diff --git a/regen/opcodes b/regen/opcodes index 9063072d6d..9bdf5c5480 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -602,3 +602,4 @@ is_tainted is_tainted ck_null fs1 helemexistsor hash element exists or ck_helemexistsor | S S methstart method start ck_null + +initfield initialise field ck_null + |