Rename get_seed() to get_hash_seed(), as suggested by

Eric J Kidder, to solve a name conflict on HP_UX 11.00.

p4raw-id: //depot/perl@20170

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index df11879fb2..bfe3cccd6f 100644
--- a/perl.c
+++ b/perl.c
@@ -903,7 +903,7 @@ setuid perl scripts securely.\n");
      * If you set PL_hash_seed (and assumedly also PL_hash_seed_set) yourself,
      * it is your responsibility to provide a good random seed! */
     if (!PL_hash_seed_set)
-	 PL_hash_seed = get_seed();
+	 PL_hash_seed = get_hash_seed();
     {
 	 char *s = PerlEnv_getenv("PERL_HASH_SEED_DEBUG");