From 6848aea2c844896efb347e6a210098c7dd447567 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Mon, 31 Oct 2022 14:41:27 +0100 Subject: 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. --- warnings.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'warnings.h') 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 -- cgit v1.2.1