/* Modified by the GLib Team and others 1997-2000. See the AUTHORS file for a list of people on the GLib Team. See the ChangeLog files for a list of changes. These files are distributed with GLib at  */
static gint g_environ_find(gchar **envp, const gchar *variable)
/* Modified by the GLib Team and others 1997-2000. See the AUTHORS file for a list of people on the GLib Team. See the ChangeLog files for a list of changes. These files are distributed with GLib at  */
static gint g_environ_find(gchar **envp, const gchar *variable)
{
  gint len, i;
  if (envp == NULL)
    return -1;
  len = strlen (variable);
  for (i = 0; envp[i]; i++)
    {
      if (strncmp (envp[i], variable, len) == 0 &&
          envp[i][len] == '=')
        return i;
    }
  return -1;
}