VMS fixups so we can build with MULTIPLICITY

To: vmsperl@perl.org, perl5-porters@perl.org
Message-Id: <4.3.2.7.0.20000602155951.01f02b20@24.8.96.48>
Message-Id: <4.3.2.7.0.20000602164011.01ec8c30@24.8.96.48>

p4raw-id: //depot/cfgperl@6198

1 files changed, 3 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index 10a7a37c40..d3e2482601 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -41,6 +41,9 @@ START_EXTERN_C
 			{ return &(PL_##v); }
 #define PERLVARA(v,n,t)	PL_##v##_t* Perl_##v##_ptr(pTHXo)		\
 			{ return &(PL_##v); }
+#undef PERLVARIC
+#define PERLVARIC(v,t,i)	const t* Perl_##v##_ptr(pTHXo)		\
+			{ return (const t *)&(PL_##v); }
 #include "perlvars.h"
 
 #undef PERLVAR