From: Andreas König Date: Tue, 18 Feb 2003 11:48:40 +0000 (+0100) Subject: Make adding notes to patchlevel.h easier X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7047380cf724d6ba2d3de39f9bed88ffab64608;p=p5sagit%2Fp5-mst-13.2.git Make adding notes to patchlevel.h easier Message-ID: p4raw-id: //depot/perl@18749 --- diff --git a/patchlevel.h b/patchlevel.h index 45f316b..526659a 100644 --- a/patchlevel.h +++ b/patchlevel.h @@ -75,7 +75,46 @@ (Note changes to line numbers as well as removal of context lines.) This will prevent patch from choking if someone has previously applied different patches than you. + + History has shown that nobody distributes patches that also + modify patchlevel.h. Do it yourself. The following perl + program can be used to add a comment to patchlevel.h: + +#!perl +die "Usage: perl -x patchlevel.h comment ..." unless @ARGV; +open PLIN, "patchlevel.h" or die "Couldn't open patchlevel.h : $!"; +open PLOUT, ">patchlevel.new" or die "Couldn't write on patchlevel.new : $!"; +my $seen=0; +while () { + if (/\t,NULL/ and $seen) { + while (my $c = shift @ARGV){ + print PLOUT qq{\t,"$c"\n}; + } + } + $seen++ if /local_patches\[\]/; + print PLOUT; +} +close PLOUT or warn "Couldn't close filehandle writing to patchlevel.new : $!"; +close PLIN or warn "Couldn't close filehandle reading from patchlevel.h : $!"; +unlink "patchlevel.bak" or warn "Couldn't unlink patchlevel.bak : $!" + if -e "patchlevel.bak"; +rename "patchlevel.h", "patchlevel.bak" or + die "Couldn't rename patchlevel.h to patchlevel.bak : $!"; +rename "patchlevel.new", "patchlevel.h" or + die "Couldn't rename patchlevel.new to patchlevel.h : $!"; +__END__ + +Please keep empty lines below so patching of this file doesn't +interfere with the following lines. + */ + + + + + + + #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT) static char *local_patches[] = { NULL