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
8ccc7bc
..
d89d2e6
100644
(file)
--- a/
INTERN.h
+++ b/
INTERN.h
@@
-1,21
+1,27
@@
-/*
$RCSfile: INTERN.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:10:42 $
+/*
INTERN.h
*
*
- * Copyright (c) 1991, Larry Wall
+ * Copyright (c) 1991
-1994
, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
- * $Log: INTERN.h,v $
- * Revision 4.0.1.1 91/06/07 10:10:42 lwall
- * patch4: new copyright notice
- *
- * Revision 4.0 91/03/20 00:58:35 lwall
- * 4.0 baseline.
- *
*/
*/
+/*
+ * 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