2 # Not fixing perl, but fixing the patchlevel if this perl comes
3 # from the repository rather than an official release
4 exit unless -e ".patch";
5 open PATCH, ".patch" or die "Couldn't open .patch: $!";
6 open PLIN, "patchlevel.h" or die "Couldn't open patchlevel.h : $!";
7 open PLOUT, ">patchlevel.new" or die "Couldn't write on patchlevel.new : $!";
13 if (/\t,NULL/ and $seen) {
14 print PLOUT "\t,\"devel-$pl\"\n";
16 $seen++ if /local_patches\[\]/;
19 close PLOUT; close PLIN;
20 rename "patchlevel.new", "patchlevel.h" or die "Couldn't rename: $!";