2N/A#ifndef LINT
2N/Astatic const char rcsid[] = "$Id: putenv.c,v 1.2 2005/04/27 04:56:11 sra Exp $";
2N/A#endif
2N/A
2N/A#include "port_before.h"
2N/A#include "port_after.h"
2N/A
2N/A/*%
2N/A * To give a little credit to Sun, SGI,
2N/A * and many vendors in the SysV world.
2N/A */
2N/A
2N/A#if !defined(NEED_PUTENV)
2N/Aint __bindcompat_putenv;
2N/A#else
2N/Aint
2N/Aputenv(char *str) {
2N/A char *tmp;
2N/A
2N/A for (tmp = str; *tmp && (*tmp != '='); tmp++)
2N/A ;
2N/A
2N/A return (setenv(str, tmp, 1));
2N/A}
2N/A#endif
2N/A
2N/A/*! \file */