| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/sysutils/p5-BSD-Process/files/ |
Upload File : |
--- 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);