handle reading from a SVf_UTF8 scalar

[perl5.git] / perlvars.h

diff --git a/perlvars.h b/perlvars.h
index 20c3882..f8bb821 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -231,3 +231,6 @@ PERLVAR(G, sv_placeholder, SV)
 #if defined(MYMALLOC) && defined(USE_ITHREADS)
 PERLVAR(G, malloc_mutex, perl_mutex)   /* Mutex for malloc */
 #endif
+
+PERLVARI(G, hash_seed_set, bool, FALSE)        /* perl.c */
+PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /* and hv.h */