svn commit: r466704 - in head/sysutils/p5-BSD-Process: . files

[Steve Wills]

Author: swills
Date: Sat Apr  7 02:02:06 2018
New Revision: 466704
URL: https://svnweb.freebsd.org/changeset/ports/466704

Log:
  sysutils/p5-BSD-Process: fix seg fault on 11.1 and newer
  
  PR:		227104
  Reported by:	Barrie <freebsdbugs at myarcher.net>

Modified:
  head/sysutils/p5-BSD-Process/Makefile   (contents, props changed)
  head/sysutils/p5-BSD-Process/files/patch-Process.xs   (contents, props changed)

Modified: head/sysutils/p5-BSD-Process/Makefile
==============================================================================
--- head/sysutils/p5-BSD-Process/Makefile	Sat Apr  7 01:44:11 2018	(r466703)
+++ head/sysutils/p5-BSD-Process/Makefile	Sat Apr  7 02:02:06 2018	(r466704)
@@ -3,7 +3,7 @@
 
 PORTNAME=	BSD-Process
 PORTVERSION=	0.07
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	sysutils perl5
 MASTER_SITES=	CPAN
 MASTER_SITE_SUBDIR=	CPAN:DLAND

Modified: head/sysutils/p5-BSD-Process/files/patch-Process.xs
==============================================================================
--- head/sysutils/p5-BSD-Process/files/patch-Process.xs	Sat Apr  7 01:44:11 2018	(r466703)
+++ head/sysutils/p5-BSD-Process/files/patch-Process.xs	Sat Apr  7 02:02:06 2018	(r466704)
@@ -1,6 +1,6 @@
 --- Process.xs.orig	2013-06-22 16:19:28 UTC
 +++ Process.xs
-@@ -291,7 +291,12 @@ HV *_procinfo (struct kinfo_proc *kp, in
+@@ -291,7 +291,12 @@ HV *_procinfo (struct kinfo_proc *kp, int resolve) {
  
      hv_store(h, "advlock",      7, newSViv(NO_FREEBSD_4x(P_FLAG(P_ADVLOCK))), 0);
      hv_store(h, "controlt",     8, newSViv(NO_FREEBSD_4x(P_FLAG(P_CONTROLT))), 0);
@@ -13,3 +13,11 @@
  #if __FreeBSD_version < 802501
      hv_store(h, "noload",       6, newSViv(NO_FREEBSD_4x(P_FLAG(P_NOLOAD))), 0);
  #endif
+@@ -441,6 +446,7 @@ _list(int request, int param)
+         kip = _proc_request(kd, request, param, &nr);
+         if (kip) {
+             int p;
++            EXTEND(SP,nr);
+             for (p = 0; p < nr; ++kip, ++p) {
+ #if PERL_API_VERSION == 5 && PERL_VERSION == 6
+                 EXTEND(SP,1);