Hi Damien,
I haven't try your patch, because ActivePerl/StrawberryPerl 5.22.2 is not
released yet. BTW, personally I don't like this part:
> @@ -777,7 +784,7 @@ newWINrv(SV *rv, win_T *ptr)
> sv_setiv(ptr->w_perl_private, PTR2IV(ptr));
> }
> else
> - SvREFCNT_inc(ptr->w_perl_private);
> + SvREFCNT((SV *)ptr->w_perl_private)++;
> SvRV(rv) = ptr->w_perl_private;
> SvROK_on(rv);
> return sv_bless(rv, gv_stashpv("VIWIN", TRUE));
Isn't it better to (re)defining SvREFCNT_inc instead of using SvREFCNT()++?
Regards,
Ken Takata