From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 28 Jul 1999 07:03:34 +0000 (+0000)
Subject: avoid warning (from Doug MacEachern)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f63b97789ba5baa6af3b3f438fee07cb2b3074e5;p=p5sagit%2Fp5-mst-13.2.git

avoid warning (from Doug MacEachern)

p4raw-id: //depot/perl@3805
---

diff --git a/perl.h b/perl.h
index 7b23166..38ae6a7 100644
--- a/perl.h
+++ b/perl.h
@@ -173,7 +173,9 @@ struct perl_thread;
 #    define dTHX	dTHXa(THR)
 #    define dTHR	dNOOP
 #  else
-#    define MULTIPLICITY
+#    ifndef MULTIPLICITY
+#      define MULTIPLICITY
+#    endif
 #    define pTHX	register PerlInterpreter *my_perl
 #    define aTHX	my_perl
 #    define dTHXa(a)	pTHX = (PerlInterpreter *)a