From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Thu, 18 Sep 2003 19:01:06 +0000 (-0700)
Subject: getsysinfo() broken on OS/2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bad9d6ae0684d3030e7202e9754e1f5c44ec753a;p=p5sagit%2Fp5-mst-13.2.git

getsysinfo() broken on OS/2
Message-ID: <20030919020106.GA22511@math.berkeley.edu>

p4raw-id: //depot/perl@21286
---

diff --git a/os2/os2.c b/os2/os2.c
index d5c3e2e..88b5f5d 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -782,7 +782,7 @@ get_sysinfo(ULONG pid, ULONG flags)
 	return 0;
     }
     psi = (PQTOPLEVEL)pbuffer;
-    if (psi && pid && pid != psi->procdata->pid) {
+    if (psi && pid && psi->procdata && pid != psi->procdata->pid) {
       Safefree(psi);
       Perl_croak_nocontext("panic: wrong pid in sysinfo");
     }