add perl-clone_oldcop.diff
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=78
This commit is contained in:
parent
99f28d74ed
commit
9e715e8001
22
perl-clone_oldcop.diff
Normal file
22
perl-clone_oldcop.diff
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
--- ./ext/XS-APItest/APItest.xs.orig 2012-05-25 14:49:20.000000000 +0000
|
||||||
|
+++ ./ext/XS-APItest/APItest.xs 2012-05-25 14:49:54.000000000 +0000
|
||||||
|
@@ -3084,7 +3084,8 @@ CODE:
|
||||||
|
PERL_SET_CONTEXT(interp_dup);
|
||||||
|
|
||||||
|
/* continue after 'clone_with_stack' */
|
||||||
|
- interp_dup->Iop = interp_dup->Iop->op_next;
|
||||||
|
+ if (interp_dup->Iop)
|
||||||
|
+ interp_dup->Iop = interp_dup->Iop->op_next;
|
||||||
|
|
||||||
|
/* run with new perl */
|
||||||
|
Perl_runops_standard(interp_dup);
|
||||||
|
--- ./sv.c.orig 2012-05-25 14:50:00.000000000 +0000
|
||||||
|
+++ ./sv.c 2012-05-25 14:51:48.000000000 +0000
|
||||||
|
@@ -12296,6 +12296,7 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32
|
||||||
|
Perl_croak(aTHX_ "Cloning substitution context is unimplemented");
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
+ ncx->blk_oldcop = (COP*)any_dup(ncx->blk_oldcop, param->proto_perl);
|
||||||
|
switch (CxTYPE(ncx)) {
|
||||||
|
case CXt_SUB:
|
||||||
|
ncx->blk_sub.cv = (ncx->blk_sub.olddepth == 0
|
@ -37,6 +37,7 @@ Patch3: perl-nroff.diff
|
|||||||
Patch4: perl-netcmdutf8.diff
|
Patch4: perl-netcmdutf8.diff
|
||||||
Patch5: perl-HiRes.t-timeout.diff
|
Patch5: perl-HiRes.t-timeout.diff
|
||||||
Patch6: perl-saverecontext.diff
|
Patch6: perl-saverecontext.diff
|
||||||
|
Patch7: perl-clone_oldcop.diff
|
||||||
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
BuildRoot: %{_tmppath}/%{name}-%{version}-build
|
||||||
PreReq: perl-base = %version
|
PreReq: perl-base = %version
|
||||||
#PreReq: %fillup_prereq
|
#PreReq: %fillup_prereq
|
||||||
@ -157,9 +158,9 @@ cp -p %{S:3} .
|
|||||||
%patch4
|
%patch4
|
||||||
%patch5
|
%patch5
|
||||||
%patch6
|
%patch6
|
||||||
|
%patch7
|
||||||
|
|
||||||
%build
|
%build
|
||||||
ulimit -a
|
|
||||||
cp -a lib savelib
|
cp -a lib savelib
|
||||||
export SUSE_ASNEEDED=0
|
export SUSE_ASNEEDED=0
|
||||||
export BZIP2_LIB=%{_libdir}
|
export BZIP2_LIB=%{_libdir}
|
||||||
|
Loading…
Reference in New Issue
Block a user