diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-10-31 14:41:27 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-11-01 11:57:31 +0100 |
| commit | 6848aea2c844896efb347e6a210098c7dd447567 (patch) | |
| tree | fd5ac721106fe55e061272248af6c7982bf1966a /warnings.h | |
| parent | 4bd3be3563698eb6e927a62c29755b216b926a27 (diff) | |
| download | perl-6848aea2c844896efb347e6a210098c7dd447567.tar.gz | |
op.c - use refcounted pv pointers for cop_warnings
this allows multiple ops to share the same underlying
warning bit vector. the vectors are not deduped, however
they are efficiently copied and shared.
Diffstat (limited to 'warnings.h')
| -rw-r--r-- | warnings.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/warnings.h b/warnings.h index dd9866ba09..d2d891ab44 100644 --- a/warnings.h +++ b/warnings.h @@ -147,7 +147,7 @@ #define DUP_WARNINGS(p) Perl_dup_warnings(aTHX_ p) #define free_and_set_cop_warnings(cmp,w) STMT_START { \ - if (!specialWARN((cmp)->cop_warnings)) PerlMemShared_free((cmp)->cop_warnings); \ + if (!specialWARN((cmp)->cop_warnings)) rcpv_free((char*)((cmp)->cop_warnings)); \ (cmp)->cop_warnings = w; \ } STMT_END |