Use the right warn routine
authorYves Orton <demerphq@gmail.com>
Fri, 14 Dec 2012 21:34:26 +0000 (22:34 +0100)
committerYves Orton <demerphq@gmail.com>
Fri, 14 Dec 2012 21:34:26 +0000 (22:34 +0100)
util.c

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