Use the right warn routine

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index fea95b9935..482904227d 100644
--- a/util.c
+++ b/util.c
@@ -5681,7 +5681,7 @@ Perl_get_hash_seed(pTHX_ unsigned char *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");
+            Perl_warn(aTHX_ "perl: Non hex character in '$ENV{PERL_HASH_SEED}', seed only partially set\n");
         }
         /* should we check for unparsed crap? */
     }