This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove $patchlevel from win32/config_h.PL since it is never used
authorSteve Hay <steve.m.hay@googlemail.com>
Thu, 7 Jun 2012 07:58:13 +0000 (08:58 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Thu, 7 Jun 2012 07:58:13 +0000 (08:58 +0100)
win32/config_h.PL

index 89b8553..dbefeb5 100644 (file)
@@ -23,12 +23,6 @@ $opt{CORE_DIR} ||= '../lib/CORE';
 
 warn "Writing $opt{CONFIG_H}\n";
 
-my $patchlevel = $opt{INST_VER};
-$patchlevel =~ s|^[\\/]||;
-$patchlevel =~ s|~VERSION~|$Config{version}|g;
-$patchlevel ||= $Config{version};
-$patchlevel = qq["$patchlevel"];
-
 open(SH,"<$name") || die "Cannot open $name:$!";
 while (<SH>)
  {