This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
VERSION Patch
[perl5.git]
/
INTERN.h
diff --git
a/INTERN.h
b/INTERN.h
index
7a9d475
..
d89d2e6
100644
(file)
--- 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
#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
#undef INIT
#define INIT(x) = x