This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Collapse two identical cases in a switch
[perl5.git] / x2p / EXTERN.h
index fc98380..dcc1b24 100644 (file)
@@ -1,19 +1,20 @@
-/* $Header: EXTERN.h,v 3.0 89/10/18 15:33:37 lwall Locked $
+/*    EXTERN.h
  *
- *    Copyright (c) 1989, Larry Wall
+ *    Copyright (C) 1991, 1992, 1993, 1994, by Larry Wall and others
  *
- *    You may distribute under the terms of the GNU General Public License
- *    as specified in the README file that comes with the perl 3.0 kit.
- *
- * $Log:       EXTERN.h,v $
- * Revision 3.0  89/10/18  15:33:37  lwall
- * 3.0 baseline
- * 
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
  */
 
 #undef EXT
 #define EXT extern
 
+#ifdef __cplusplus
+#  define EXTERN_C extern "C"
+#else
+#  define EXTERN_C extern
+#endif
+
 #undef INIT
 #define INIT(x)