7c0e218d87
update to 5.22.0 regarding the .spec file: i have updated the "(Provides|Obsoletes): perl-*" directives to reflect the module versions provided by perl-5.22.0. but only for the modules that already were mentioned in the .spec file. i cannot judge why these are in the .spec file while many others are not. OBS-URL: https://build.opensuse.org/request/show/313011 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=130
27 lines
819 B
Diff
27 lines
819 B
Diff
--- ./regcomp.c.orig 2015-05-13 22:19:30.000000000 +0200
|
|
+++ ./regcomp.c 2015-06-02 09:01:18.881114678 +0200
|
|
@@ -17744,8 +17744,21 @@
|
|
|
|
if (gvp) {
|
|
GV * const gv = *gvp;
|
|
- if (SvTYPE(gv) == SVt_PVGV && GvSV(gv))
|
|
- save_scalar(gv);
|
|
+ if (SvTYPE(gv) == SVt_PVGV && GvSV(gv)) {
|
|
+ /* this is a copy of save_scalar() without the GETMAGIC call, RT#76538 */
|
|
+ SV ** const sptr = &GvSVn(gv);
|
|
+ SV * osv = *sptr;
|
|
+ SV * nsv = newSV(0);
|
|
+ save_pushptrptr(SvREFCNT_inc_simple(gv), SvREFCNT_inc(osv), SAVEt_SV);
|
|
+ if (SvTYPE(osv) >= SVt_PVMG && SvMAGIC(osv)) {
|
|
+ if (SvGMAGICAL(osv)) {
|
|
+ SvFLAGS(osv) |= (SvFLAGS(osv) &
|
|
+ (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
|
|
+ }
|
|
+ mg_localize(osv, nsv, (bool)1);
|
|
+ }
|
|
+ *sptr = nsv;
|
|
+ }
|
|
}
|
|
}
|
|
}
|