avoid warning (from Doug MacEachern)

p4raw-id: //depot/perl@3805

diff --git a/perl.h b/perl.h
index 7b23166..38ae6a7 100644 (file)
--- 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