warn if PERL_HASH_SEED contains an unexpected character

diff --git a/util.c b/util.c
index e42dd01..fea95b9 100644 (file)
--- a/util.c
+++ b/util.c
@@ -5668,6 +5668,8 @@ Perl_get_hash_seed(pTHX_ unsigned char *seed_buffer)
     {
         while (isSPACE(*s))
            s++;
+        if (s[0] == '0' && s[1] == 'x')
+            s += 2;
 
         while (isXDIGIT(*s) && seed_buffer < end) {
             *seed_buffer = READ_XDIGIT(s) << 4;
@@ -5676,6 +5678,11 @@ Perl_get_hash_seed(pTHX_ unsigned char *seed_buffer)
             }
             seed_buffer++;
         }
+        while (isSPACE(*s))
+           s++;
+        if (*s && !isXDIGIT(*s)) {
+            warn_nocontext("perl: Non hex character in '$ENV{PERL_HASH_SEED}', seed only partially set\n");
+        }
         /* should we check for unparsed crap? */
     }
     else