#endif /* WIN32 || NETWARE */
+#ifndef PERL_MICRO
I32
Perl_setenv_getix(pTHX_ char *nam)
{
} /* potential SEGV's */
return i;
}
+#endif /* !PERL_MICRO */
#endif /* !VMS && !EPOC*/
}
UV
-Perl_get_seed(pTHX)
+Perl_get_hash_seed(pTHX)
{
char *s = PerlEnv_getenv("PERL_HASH_SEED");
UV myseed = 0;