Fix some compilation warnings

[p5sagit/p5-mst-13.2.git] / patchlevel.h

diff --git a/patchlevel.h b/patchlevel.h
index 302e4f9..af6e18f 100644 (file)
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -100,6 +100,7 @@ while (<PLIN>) {
 }
 close PLOUT or die "Couldn't close filehandle writing to patchlevel.new : $!";
 close PLIN or die "Couldn't close filehandle reading from patchlevel.h : $!";
+close DATA; # needed to allow unlink to work win32.
 unlink "patchlevel.bak" or warn "Couldn't unlink patchlevel.bak : $!"
   if -e "patchlevel.bak";
 rename "patchlevel.h", "patchlevel.bak" or
@@ -114,13 +115,14 @@ hunk.
 
  */
 
-
-
+#ifndef PERL_PATCHNUM
+#define PERL_PATCHNUM 24148
+#endif
 
 #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT)
-static const char *local_patches[] = {
+static const char * const local_patches[] = {
        NULL
-       ,"DEVEL24148"
+       ,"DEVEL" STRINGIFY(PERL_PATCHNUM)
        ,NULL
 };