This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove redundant substitution from win32/config_sh.PL
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 6 Jun 2012 18:15:25 +0000 (19:15 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 6 Jun 2012 18:15:25 +0000 (19:15 +0100)
INST_VER doesn't contain a ~VERSION~ placeholder.

win32/config_sh.PL

index 9b26027..ebea864 100644 (file)
@@ -77,7 +77,6 @@ if (-e $patch_file) {
 }
 
 $opt{VERSION} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}";
-$opt{INST_VER} =~ s|~VERSION~|$opt{VERSION}|g;
 $opt{'version_patchlevel_string'} = "version $opt{PERL_VERSION} subversion $opt{PERL_SUBVERSION}";
 $opt{'version_patchlevel_string'} .= " patch $opt{PERL_PATCHLEVEL}" if exists $opt{PERL_PATCHLEVEL};