summaryrefslogtreecommitdiff
path: root/lang/perl5.12/files/patch-bug51636
diff options
context:
space:
mode:
authorSergey Skvortsov <skv@FreeBSD.org>2009-06-08 14:35:28 +0000
committerSergey Skvortsov <skv@FreeBSD.org>2009-06-08 14:35:28 +0000
commit42eabd775382a2bb10e1cfa3d850d52c299ec1d8 (patch)
tree64b2d004842f825a8d647d022ccccaaff42b3b52 /lang/perl5.12/files/patch-bug51636
parent- Add PORTSCOUT to ignore false positive new versions (diff)
- Add more essential bugfixes
- Add perl-threaded-5.* to CONFLICTS [1] - Introduce PERL_VENDOR_PREFIX variable - Be really PREFIX-neutral [2} Submitted by: lth [1], rafan [2]
Notes
Notes: svn path=/head/; revision=235438
Diffstat (limited to 'lang/perl5.12/files/patch-bug51636')
-rw-r--r--lang/perl5.12/files/patch-bug5163615
1 files changed, 15 insertions, 0 deletions
diff --git a/lang/perl5.12/files/patch-bug51636 b/lang/perl5.12/files/patch-bug51636
new file mode 100644
index 000000000000..c4653b7a1266
--- /dev/null
+++ b/lang/perl5.12/files/patch-bug51636
@@ -0,0 +1,15 @@
+# http://rt.perl.org/rt3/Public/Bug/Display.html?id=51636
+# http://perl5.git.perl.org/perl.git/commit/b63c7c552a2e9cf2b2c5eb492358b8567fd16179
+diff --git a/av.c b/av.c
+index e6c26bc..67ffad9 100644
+--- av.c
++++ av.c
+@@ -437,7 +437,7 @@ Perl_av_clear(pTHX_ register AV *av)
+ /* Give any tie a chance to cleanup first */
+ if (SvRMAGICAL(av)) {
+ const MAGIC* const mg = SvMAGIC(av);
+- if (PL_delaymagic && mg->mg_type == PERL_MAGIC_isa)
++ if (PL_delaymagic && mg && mg->mg_type == PERL_MAGIC_isa)
+ PL_delaymagic |= DM_ARRAY;
+ else
+ mg_clear((SV*)av);