From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 13 Feb 2001 00:23:10 +0000 (+0000)
Subject: Comments do not nest.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fc9c74e6dee56e6598e1d19f25036ff340d46893;p=p5sagit%2Fp5-mst-13.2.git

Comments do not nest.

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

diff --git a/perl.h b/perl.h
index df90a65..8953c6a 100644
--- a/perl.h
+++ b/perl.h
@@ -2202,7 +2202,6 @@ struct ufuncs {
  * like the following:
  
 #ifndef PERL_MG_UFUNC
-/* the old way, without pTHX_ */
 #define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv)
 #endif
 
@@ -2216,7 +2215,9 @@ static PERL_MG_UFUNC(foo_get, index, val)
 
 */
 
+#ifndef PERL_MG_UFUNC
 #define PERL_MG_UFUNC(name,ix,sv) I32 name(pTHX_ IV ix, SV *sv)
+#endif
 
 /* Fix these up for __STDC__ */
 #ifndef DONT_DECLARE_STD