iarv/znc
1
0
Fork 0
mirror of https://github.com/znc/znc.git synced 2026-05-05 13:02:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #1970 from tmzullinger/1.10.x

Browse Source 
modperl: avoid newAV_alloc_x which requires perl >= 5.35.1
This commit is contained in:
Alexey Sokolov
2025-08-01 08:14:57 +01:00
committed by GitHub
parent 69c3471a7e f28f89720b
commit 1c417fda7e
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/modperl/modperl.i
View File

@@ -82,7 +82,9 @@ namespace std {
return i != self->end();
}
SV* keys_() {
AV* av = newAV_alloc_x(self->size());
// TODO: switch to newAV_alloc_x, requires perl 5.35.1
AV *av = newAV();
av_extend(av, self->size());
// assume SCString
int i = 0;
for (const auto& a : *self) {