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}