From ec4af90ab460cdbe6d63271f865952a9dc2ebb3a Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Fri, 14 Dec 2012 22:34:26 +0100
Subject: [PATCH] Use the right warn routine

---
 util.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util.c b/util.c
index fea95b9..4829042 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? */
     }
-- 
2.7.4