Larry spricht:

s = (char*)(long)retval;                /* ouch */
             -- Larry Wall in doio.c from the perl source code