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 (file)
--- 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");
     }