System Perl is now 5.00503! There is support for threads, but this is

[FreeBSD/FreeBSD.git] / contrib / gdb / libiberty / strdup.c

char *
strdup(s)
     char *s;
{
    char *result = (char*)malloc(strlen(s) + 1);
    if (result == (char*)0)
        return (char*)0;
    strcpy(result, s);
    return result;
}