DllExport int
win32_putenv(const char *name)
{
    dTHX;
    char* curitem;
    char* val;
    int relval = -1;

    if (name) {
        Newx(curitem,strlen(name)+1,char);
        strcpy(curitem, name);
        val = strchr(curitem, '=');
        if (val) {
            /* The sane way to deal with the environment.
             * Has these advantages over putenv() & co.:
             *  * enables us to store a truly empty value in the
             *    environment (like in UNIX).
             *  * we don't have to deal with RTL globals, bugs and leaks
             *    (specifically, see http://support.microsoft.com/kb/235601).
             *  * Much faster.
             * Why you may want to use the RTL environment handling
             * (previously enabled by USE_WIN32_RTL_ENV):
             *  * environ[] and RTL functions will not reflect changes,
             *    which might be an issue if extensions want to access
             *    the env. via RTL.  This cuts both ways, since RTL will
             *    not see changes made by extensions that call the Win32
             *    functions directly, either.
             * GSAR 97-06-07
             */
            *val++ = '\0';
            if (SetEnvironmentVariableA(curitem, *val ? val : NULL))
                relval = 0;
        }
        Safefree(curitem);
    }
    return relval;
}