This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
As we're not using UVf in the core, don't even define in when PERL_CORE
authorNicholas Clark <nick@ccl4.org>
Sat, 27 Jan 2007 22:49:10 +0000 (22:49 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 27 Jan 2007 22:49:10 +0000 (22:49 +0000)
is true.

p4raw-id: //depot/perl@30044

perl.h

diff --git a/perl.h b/perl.h
index 5a8cad0..0d9ea74 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3081,10 +3081,14 @@ typedef pthread_key_t   perl_key;
 #    define VDf "vd"
 #  endif
 #endif
+
+#ifdef PERL_CORE
 /* not used; but needed for backward compatibilty with XS code? - RMB */ 
-#ifndef UVf
-#  define UVf UVuf
+#  ifndef UVf
+#    define UVf UVuf
+#  endif
+#else
+#  undef UVf
 #endif
 
 #ifdef HASATTRIBUTE_FORMAT