there is strtol() (like e.g. SunOS 4) because of the Atoul()
in Perl_get_hash_seed()). The only true fix would be to
implement Perl_my_strtoul() (and Perl_my_strtol(), I guess)
in numeric.c.
p4raw-id: //depot/perl@20865
#if !defined(Strtoul) && defined(HAS_STRTOUL)
# define Strtoul strtoul
#endif
+#if !defined(Strtoul) && defined(HAS_STRTOL) /* Last resort. */
+# define Strtoul(s, e, b) strchr((s), '-') ? ULONG_MAX : (unsigned long)strtol((s), (e), (b))
+#endif
#ifndef Atoul
# define Atoul(s) Strtoul(s, (char **)NULL, 10)
#endif