From 9e715e80015684f9a8351c212d1281970610e9cf85d0e57159aca7a1b2d8aadd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Michael=20Schr=C3=B6der?= Date: Fri, 25 May 2012 14:54:24 +0000 Subject: [PATCH] add perl-clone_oldcop.diff OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=78 --- perl-clone_oldcop.diff | 22 ++++++++++++++++++++++ perl.spec | 3 ++- 2 files changed, 24 insertions(+), 1 deletion(-) create mode 100644 perl-clone_oldcop.diff diff --git a/perl-clone_oldcop.diff b/perl-clone_oldcop.diff new file mode 100644 index 0000000..5972473 --- /dev/null +++ b/perl-clone_oldcop.diff @@ -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 diff --git a/perl.spec b/perl.spec index f902fbb..5b34f04 100644 --- a/perl.spec +++ b/perl.spec @@ -37,6 +37,7 @@ Patch3: perl-nroff.diff Patch4: perl-netcmdutf8.diff Patch5: perl-HiRes.t-timeout.diff Patch6: perl-saverecontext.diff +Patch7: perl-clone_oldcop.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build PreReq: perl-base = %version #PreReq: %fillup_prereq @@ -157,9 +158,9 @@ cp -p %{S:3} . %patch4 %patch5 %patch6 +%patch7 %build -ulimit -a cp -a lib savelib export SUSE_ASNEEDED=0 export BZIP2_LIB=%{_libdir}