This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid leaking static local_patches unless patchlevel.h is
[perl5.git] / patchlevel.h
index 75b45f0..02a9689 100644 (file)
@@ -1,5 +1,14 @@
-#define PATCHLEVEL 3
-#define SUBVERSION 97
+#ifndef __PATCHLEVEL_H_INCLUDED__
+
+/* do not adjust the whitespace! Configure expects the numbers to be
+ * exactly on the third column */
+
+#define PERL_REVISION  5               /* age */
+#define PERL_VERSION   5               /* epoch */
+#define PERL_SUBVERSION        61              /* generation */
+
+#define __PATCHLEVEL_H_INCLUDED__
+#endif
 
 /*
        local_patches -- list of locally applied less-than-subversion patches.
@@ -36,6 +45,7 @@
        This will prevent patch from choking if someone has previously
        applied different patches than you.
  */
+#if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT)
 static char    *local_patches[] = {
        NULL
        ,NULL
@@ -44,3 +54,9 @@ static        char    *local_patches[] = {
 /* Initial space prevents this variable from being inserted in config.sh  */
 #  define      LOCAL_PATCH_COUNT       \
        (sizeof(local_patches)/sizeof(local_patches[0])-2)
+
+/* the old terms of reference, add them only when explicitly included */
+#define PATCHLEVEL             PERL_VERSION
+#undef  SUBVERSION             /* OS/390 has a SUBVERSION in a system header */
+#define SUBVERSION             PERL_SUBVERSION
+#endif