From 0193cc6416696261732050ac8db6694ef9a69714 Mon Sep 17 00:00:00 2001 From: Lubomir Rintel Date: Sun, 12 Oct 2008 08:49:31 +0000 Subject: [PATCH] Add missing patch file. --- perl-5.10.0-stlocal.patch | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 perl-5.10.0-stlocal.patch diff --git a/perl-5.10.0-stlocal.patch b/perl-5.10.0-stlocal.patch new file mode 100644 index 0000000..81648d5 --- /dev/null +++ b/perl-5.10.0-stlocal.patch @@ -0,0 +1,16 @@ +This fixes #52740: crash when localizing a symtab entry [1] +It was pulled to -current in 33807 which was superseded by 34213. +For 5.10.x, this was pulled in by 34295. + +diff -up perl-5.10.0/sv.c.stlocal perl-5.10.0/sv.c +--- perl-5.10.0/sv.c.stlocal 2008-10-12 10:31:28.000000000 +0200 ++++ perl-5.10.0/sv.c 2008-10-12 10:31:39.000000000 +0200 +@@ -3546,7 +3546,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, regi + Perl_croak(aTHX_ "Cannot copy to %s", type); + } else if (sflags & SVf_ROK) { + if (isGV_with_GP(dstr) && dtype == SVt_PVGV +- && SvTYPE(SvRV(sstr)) == SVt_PVGV) { ++ && SvTYPE(SvRV(sstr)) == SVt_PVGV && isGV_with_GP(SvRV(sstr))) { + sstr = SvRV(sstr); + if (sstr == dstr) { + if (GvIMPORTED(dstr) != GVf_IMPORTED