summaryrefslogtreecommitdiff
path: root/utils/perlbug.PL
diff options
context:
space:
mode:
Diffstat (limited to 'utils/perlbug.PL')
-rw-r--r--utils/perlbug.PL3
1 files changed, 0 insertions, 3 deletions
diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index 8e648289bb..de94e6e13d 100644
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -28,10 +28,8 @@ open PATCH_LEVEL, "<" . catfile(updir, "patchlevel.h")
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*$/;
}
@@ -44,7 +42,6 @@ while (<PATCH_LEVEL>) {
last if /^\s*}/;
chomp;
s/^\s+,?\s*"?//;
- s/"\s+STRINGIFY\(PERL_PATCHNUM\)/$patchnum"/;
s/"?\s*,?$//;
s/(['\\])/\\$1/g;
push @patches, $_ unless $_ eq 'NULL';