aboutsummaryrefslogtreecommitdiff
path: root/lang/perl5.14/files
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.14/files
parentf03c8448771ce1a5c69e128695868debe183178b (diff)
downloadports-42eabd775382a2bb10e1cfa3d850d52c299ec1d8.tar.gz
ports-42eabd775382a2bb10e1cfa3d850d52c299ec1d8.zip
- 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.14/files')
-rw-r--r--lang/perl5.14/files/patch-bug5163615
-rw-r--r--lang/perl5.14/files/patch-bug6456223
-rw-r--r--lang/perl5.14/files/patch-setpgrp13
3 files changed, 51 insertions, 0 deletions
diff --git a/lang/perl5.14/files/patch-bug51636 b/lang/perl5.14/files/patch-bug51636
new file mode 100644
index 000000000000..c4653b7a1266
--- /dev/null
+++ b/lang/perl5.14/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);
diff --git a/lang/perl5.14/files/patch-bug64562 b/lang/perl5.14/files/patch-bug64562
new file mode 100644
index 000000000000..7503887573e3
--- /dev/null
+++ b/lang/perl5.14/files/patch-bug64562
@@ -0,0 +1,23 @@
+# http://rt.perl.org/rt3/Public/Bug/Display.html?id=64562
+# http://perl5.git.perl.org/perl.git/commitdiff/ee6d2783b2d78accfac54397826acf5f6e1715e1?hp=5a8cf367090fb5d83d8e8e0ae381a3525a215928
+diff --git a/op.c b/op.c
+index 517f648..89ed522 100644
+--- op.c
++++ op.c
+@@ -6166,9 +6166,13 @@ Perl_newFORM(pTHX_ I32 floor, OP *o, OP *block)
+ const line_t oldline = CopLINE(PL_curcop);
+ if (PL_parser && PL_parser->copline != NOLINE)
+ CopLINE_set(PL_curcop, PL_parser->copline);
+- Perl_warner(aTHX_ packWARN(WARN_REDEFINE),
+- o ? "Format %"SVf" redefined"
+- : "Format STDOUT redefined", SVfARG(cSVOPo->op_sv));
++ if (o) {
++ Perl_warner(aTHX_ packWARN(WARN_REDEFINE),
++ "Format %"SVf" redefined", SVfARG(cSVOPo->op_sv));
++ } else {
++ Perl_warner(aTHX_ packWARN(WARN_REDEFINE),
++ "Format STDOUT redefined");
++ }
+ CopLINE_set(PL_curcop, oldline);
+ }
+ SvREFCNT_dec(cv);
diff --git a/lang/perl5.14/files/patch-setpgrp b/lang/perl5.14/files/patch-setpgrp
new file mode 100644
index 000000000000..e44f7aae0d5c
--- /dev/null
+++ b/lang/perl5.14/files/patch-setpgrp
@@ -0,0 +1,13 @@
+# http://perl5.git.perl.org/perl.git/commit/1f200948c4c45a9bc088451dd377e4ab8733c722
+diff --git a/pp_sys.c b/pp_sys.c
+index cfbf918..0d2c970 100644
+--- pp_sys.c
++++ pp_sys.c
+@@ -4318,6 +4318,7 @@ PP(pp_setpgrp)
+ if (MAXARG < 2) {
+ pgrp = 0;
+ pid = 0;
++ XPUSHi(-1);
+ }
+ else {
+ pgrp = POPi;