summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorGisle Aas <gisle@activestate.com>2006-01-06 13:57:27 +0000
committerGisle Aas <gisle@activestate.com>2006-01-06 13:57:27 +0000
commit7850f74cebcc11cc1e593574033a8cdd463b0a01 (patch)
tree1f3fc395261ff7453b4d730d1cfeb4dce0524fd0 /utils
parentc86a4f2e37a2a05a9cad736617540ad66d32fda9 (diff)
downloadperl-7850f74cebcc11cc1e593574033a8cdd463b0a01.tar.gz
Move "DEVEL####" marker to the 'perl -v' output.
This avoids problem with using STRINGIFY in patchlevel.h (ref msg <43BE4BAC.6010701@uk.radan.com> posted to p5p). p4raw-id: //depot/perl@26672
Diffstat (limited to 'utils')
-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';