The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/*
 * strutil.c
 *
 *  Created on: 18 Feb 2011
 *      Author: sdprice1
 */

char *strtok(char * str, const char * delim)
{
    static char* p=0;
    if(str)
        p=str;
    else if(!p)
        return 0;
    str=p+strspn(p,delim);
    p=str+strcspn(str,delim);
    if(p==str)
        return p=0;
    p = *p ? *p=0,p+1 : 0;
    return str;
}