From: Robin Barker <RMBarker@cpan.org>
Date: Thu, 28 Jul 2005 12:13:13 +0000 (+0100)
Subject: perl.h, use STRINGIFY in 25171
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63ce7bf0495e344518a30158c925e43ffea6cc33;p=p5sagit%2Fp5-mst-13.2.git

perl.h, use STRINGIFY in 25171
Message-ID: <533D273D4014D411AB1D00062938C4D90849C75A@hotel.npl.co.uk>

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

diff --git a/perl.h b/perl.h
index 8d5ac67..c1d08bb 100644
--- a/perl.h
+++ b/perl.h
@@ -2694,7 +2694,7 @@ typedef pthread_key_t	perl_key;
 */
 
 #ifndef SVf_
-#  define SVf_(n) "-" #n "p"
+#  define SVf_(n) "-" STRINGIFY(n) "p"
 #endif
 
 #ifndef SVf
@@ -2715,9 +2715,7 @@ typedef pthread_key_t	perl_key;
  
 #ifndef VDf
 #  if vdNUMBER 
-#    define vdFORMAT(n) #n "p"
-#    define VDf_(n) vdFORMAT(n)
-#    define VDf VDf_(vdNUMBER)
+#    define VDf STRINGIFY(vdNUMBER) "p"
 #  else
 #    define VDf "vd"
 #  endif