diff options
| author | Sergey Skvortsov <skv@FreeBSD.org> | 2009-04-04 09:06:53 +0000 |
|---|---|---|
| committer | Sergey Skvortsov <skv@FreeBSD.org> | 2009-04-04 09:06:53 +0000 |
| commit | d70143844849daaab2b798d1f12f92ba5037be3f (patch) | |
| tree | 01e3fef15f2eb91721ec1e9ecc54d96ce294a67f /lang/perl5.12/files/patch-bug52740 | |
| parent | update to 0.62.2 (diff) | |
Add several bugfixes, imported from maint-5.10
(i.e. will be included into forthcoming 5.10.1).
Notes
Notes:
svn path=/head/; revision=231575
Diffstat (limited to 'lang/perl5.12/files/patch-bug52740')
| -rw-r--r-- | lang/perl5.12/files/patch-bug52740 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lang/perl5.12/files/patch-bug52740 b/lang/perl5.12/files/patch-bug52740 new file mode 100644 index 000000000000..08a73a1547ee --- /dev/null +++ b/lang/perl5.12/files/patch-bug52740 @@ -0,0 +1,15 @@ +# http://rt.perl.org/rt3/Public/Bug/Display.html?id=52740 +# http://perl5.git.perl.org/perl.git/commitdiff/785bee4f7cf89837cba8e6e0859abbb4b407e1f1?hp=90e91dd8c9549b16c38f6ab2e9fa25c7ea28dff8 +diff --git a/sv.c b/sv.c +index f721e6f..5fcf018 100644 +--- sv.c ++++ sv.c +@@ -3717,7 +3717,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV* sstr, const I32 flags) + 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 |