[cheats/setup-io.pm] set $*PID to 0 if the getpid() function cannot be

found
rakudo · Apr 20, 2010 · d0e93e5 · d0e93e5
1 parent 027ff40
commit d0e93e5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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