From 4633a7c4bad06b471d9310620b7fe8ddd158cccd Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Tue, 21 Nov 1995 10:01:00 +1200 Subject: 5.002 beta 1 If you're adventurous, have a look at ftp://ftp.sems.com/pub/outgoing/perl5.0/perl5.002beta1.tar.gz Many thanks to Andy for doing the integration. Obviously, if you consult the bugs database, you'll note there are still plenty of buglets that need fixing, and several enhancements that I've intended to put in still haven't made it in (Hi, Tim and Ilya). But I think it'll be pretty stable. And you can start to fiddle around with prototypes (which are, of course, still totally undocumented). Packrats, don't worry too much about readvertising this widely. Nowadays we're on a T1 here, so our bandwidth is okay. Have the appropriate amount of jollity. Larry --- INTERN.h | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'INTERN.h') diff --git a/INTERN.h b/INTERN.h index 7a9d475fa3..d89d2e68a4 100644 --- a/INTERN.h +++ b/INTERN.h @@ -7,8 +7,21 @@ * */ +/* + * EXT designates a global var which is defined in perl.h + * dEXT designates a global var which is defined in another + * file, so we can't count on finding it in perl.h + * (this practice should be avoided). + */ #undef EXT -#define EXT +#undef dEXT +#if defined(VMS) && !defined(__GNUC__) +# define EXT globaldef {"$GLOBAL_RW_VARS"} noshare +# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare +#else +# define EXT +# define dEXT +#endif #undef INIT #define INIT(x) = x -- cgit v1.2.1