utf8.c: Don't use Newx in decoding UTF-8

[perl5.git] / perlvars.h

diff --git a/perlvars.h b/perlvars.h
index 89e2e1e..884d57c 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -248,3 +248,10 @@ PERLVAR(G, malloc_mutex, perl_mutex)       /* Mutex for malloc */
 
 PERLVARI(G, hash_seed_set, bool, FALSE)        /* perl.c */
 PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /* perl.c and hv.h */
+
+/* The path separator can vary depending on whether we're running under DCL or
+ * a Unix shell.
+ */
+#ifdef __VMS
+PERLVAR(G, perllib_sep, char)
+#endif