diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-01-06 13:57:27 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-01-06 13:57:27 +0000 |
| commit | 7850f74cebcc11cc1e593574033a8cdd463b0a01 (patch) | |
| tree | 1f3fc395261ff7453b4d730d1cfeb4dce0524fd0 /utils/perlbug.PL | |
| parent | c86a4f2e37a2a05a9cad736617540ad66d32fda9 (diff) | |
| download | perl-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/perlbug.PL')
| -rw-r--r-- | utils/perlbug.PL | 3 |
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'; |