Change 20170 by [EMAIL PROTECTED] on 2003/07/18 08:03:02
Rename get_seed() to get_hash_seed(), as suggested by
Eric J Kidder, to solve a name conflict on HP_UX 11.00.
Affected files ...
... //depot/perl/embed.fnc#99 edit
... //depot/perl/embed.h#412 edit
... //depot/perl/perl.c#512 edit
... //depot/perl/proto.h#451 edit
... //depot/perl/util.c#397 edit
Differences ...
==== //depot/perl/embed.fnc#99 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#98~20135~ Thu Jul 10 17:03:33 2003
+++ perl/embed.fnc Fri Jul 18 01:03:02 2003
@@ -839,7 +839,7 @@
p |I32 |wait4pid |Pid_t pid|int* statusp|int flags
p |U32 |parse_unicode_opts|char **popt
p |U32 |seed
-p |UV |get_seed
+p |UV |get_hash_seed
p |void |report_evil_fh |GV *gv|IO *io|I32 op
pd |void |report_uninit
Afpd |void |warn |const char* pat|...
==== //depot/perl/embed.h#412 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#411~20135~ Thu Jul 10 17:03:33 2003
+++ perl/embed.h Fri Jul 18 01:03:02 2003
@@ -1115,7 +1115,7 @@
#define seed Perl_seed
#endif
#ifdef PERL_CORE
-#define get_seed Perl_get_seed
+#define get_hash_seed Perl_get_hash_seed
#endif
#ifdef PERL_CORE
#define report_evil_fh Perl_report_evil_fh
@@ -3606,7 +3606,7 @@
#define seed() Perl_seed(aTHX)
#endif
#ifdef PERL_CORE
-#define get_seed() Perl_get_seed(aTHX)
+#define get_hash_seed() Perl_get_hash_seed(aTHX)
#endif
#ifdef PERL_CORE
#define report_evil_fh(a,b,c) Perl_report_evil_fh(aTHX_ a,b,c)
==== //depot/perl/perl.c#512 (text) ====
Index: perl/perl.c
--- perl/perl.c#511~20145~ Thu Jul 10 22:07:09 2003
+++ perl/perl.c Fri Jul 18 01:03:02 2003
@@ -903,7 +903,7 @@
* 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");
==== //depot/perl/proto.h#451 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#450~20135~ Thu Jul 10 17:03:33 2003
+++ perl/proto.h Fri Jul 18 01:03:02 2003
@@ -799,7 +799,7 @@
PERL_CALLCONV I32 Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
PERL_CALLCONV U32 Perl_parse_unicode_opts(pTHX_ char **popt);
PERL_CALLCONV U32 Perl_seed(pTHX);
-PERL_CALLCONV UV Perl_get_seed(pTHX);
+PERL_CALLCONV UV Perl_get_hash_seed(pTHX);
PERL_CALLCONV void Perl_report_evil_fh(pTHX_ GV *gv, IO *io, I32 op);
PERL_CALLCONV void Perl_report_uninit(pTHX);
PERL_CALLCONV void Perl_warn(pTHX_ const char* pat, ...)
==== //depot/perl/util.c#397 (text) ====
Index: perl/util.c
--- perl/util.c#396~20143~ Thu Jul 10 17:35:07 2003
+++ perl/util.c Fri Jul 18 01:03:02 2003
@@ -4378,7 +4378,7 @@
}
UV
-Perl_get_seed(pTHX)
+Perl_get_hash_seed(pTHX)
{
char *s = PerlEnv_getenv("PERL_HASH_SEED");
UV myseed = 0;
End of Patch.
