X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=patchlevel.h;h=af6e18f49b9bcf640f5fa6a3c748d92925bf8e71;hb=4df4e287246babaf287cf6336ca862ceeead8e46;hp=302e4f945d5639c5a5dc2d5d494179c5c5a81573;hpb=43e4f2c68f8de551ce4632b5fbfb077a650c967e;p=p5sagit%2Fp5-mst-13.2.git diff --git a/patchlevel.h b/patchlevel.h index 302e4f9..af6e18f 100644 --- a/patchlevel.h +++ b/patchlevel.h @@ -100,6 +100,7 @@ while () { } 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 };