This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl_mutex n/a if !USE_THREADS
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 19 Oct 1999 02:18:54 +0000 (02:18 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 19 Oct 1999 02:18:54 +0000 (02:18 +0000)
p4raw-id: //depot/perl@4409

perlvars.h

index ecb450e..85ff751 100644 (file)
@@ -31,6 +31,6 @@ PERLVARIC(Gpatleave,  char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")
 /* XXX does anyone even use this? */
 PERLVARI(Gdo_undump,   bool,   FALSE)  /* -u or dump seen? */
 
 /* XXX does anyone even use this? */
 PERLVARI(Gdo_undump,   bool,   FALSE)  /* -u or dump seen? */
 
-#ifdef MYMALLOC
+#if defined(MYMALLOC) && defined(USE_THREADS)
 PERLVAR(Gmalloc_mutex, perl_mutex)     /* Mutex for malloc */
 #endif
 PERLVAR(Gmalloc_mutex, perl_mutex)     /* Mutex for malloc */
 #endif