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/op_private | |
| 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/op_private')
| -rw-r--r-- | regen/op_private | 5 |
1 files changed, 5 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: |