From d0e93e5fba51fb6759493a83624577fe0e4fe425 Mon Sep 17 00:00:00 2001
From: Martin Berends <martin@video64.autoexec.local>
Date: Tue, 20 Apr 2010 13:43:06 +0100
Subject: [PATCH] [cheats/setup-io.pm] set $*PID to 0 if the getpid() function
 cannot be found

---
 src/cheats/setup-io.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/cheats/setup-io.pm b/src/cheats/setup-io.pm
index 8e8ff7fd724..c6d93106b15 100644
--- a/src/cheats/setup-io.pm
+++ b/src/cheats/setup-io.pm
@@ -46,7 +46,10 @@ INIT {
         getpid_func = 'GetCurrentProcessId'
       setup_io_non_MSWin32:
         $P0 = dlfunc library, getpid_func, 'i'
+        $I0 = 0
+        unless $P0 goto setup_io_no_getpid_func
         $I0 = $P0()
+      setup_io_no_getpid_func:
         $P0 = box $I0
         set_hll_global ['PROCESS'], '$PID', $P0
         ##  Parrot request: http://trac.parrot.org/parrot/ticket/1564