or die "Can't open patchlevel.h: $!";
my $patchlevel_date = (stat PATCH_LEVEL)[9];
-my $patchnum = "";
while (<PATCH_LEVEL>) {
- $patchnum = $1 if /#define PERL_PATCHNUM\s+(\d+)/;
last if $_ =~ /^\s*static\s+(?:const\s+)?char.*?local_patches\[\]\s*=\s*{\s*$/;
}
last if /^\s*}/;
chomp;
s/^\s+,?\s*"?//;
- s/"\s+STRINGIFY\(PERL_PATCHNUM\)/$patchnum"/;
s/"?\s*,?$//;
s/(['\\])/\\$1/g;
push @patches, $_ unless $_ eq 'NULL';