mirror of
https://git.freebsd.org/ports.git
synced 2025-04-30 18:46:38 -04:00
23 lines
937 B
Text
23 lines
937 B
Text
--- Process.xs.orig 2013-06-22 16:19:28 UTC
|
|
+++ Process.xs
|
|
@@ -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);
|
|
+
|
|
+#if __FreeBSD_version < 1100097
|
|
hv_store(h, "kthread", 7, newSViv(NO_FREEBSD_4x(P_FLAG(P_KTHREAD))), 0);
|
|
+#else
|
|
+ hv_store(h, "kthread", 7, newSViv(NO_FREEBSD_4x(P_FLAG(P_KPROC))), 0);
|
|
+#endif
|
|
#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);
|