fixwin32mak.pl (apr-1.6.5.tar.bz2) | : | fixwin32mak.pl (apr-1.7.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 94 | skipping to change at line 94 | |||
print "Replaced " . $orig . " with " . $repl . "\n"; | print "Replaced " . $orig . " with " . $repl . "\n"; | |||
$verchg = -1; | $verchg = -1; | |||
undef $orig; | undef $orig; | |||
} | } | |||
# With modern LINK.EXE linkers, there is a different LINK for | # With modern LINK.EXE linkers, there is a different LINK for | |||
# each platform, and it's determined by the file path. Best | # each platform, and it's determined by the file path. Best | |||
# that here, after we compiled the code to the default CPU, | # that here, after we compiled the code to the default CPU, | |||
# that we also link here to the default CPU. Omitting the | # that we also link here to the default CPU. Omitting the | |||
# /machine spec from the .dsp was not enough, MSVC put it back. | # /machine spec from the .dsp was not enough, MSVC put it back. | |||
# | # | |||
if ($src =~ s#^(LINK32_FLAGS=.*) /machine:(x|IX|I3)86 #$1 #) { | if ($src =~ s#^(LINK32_FLAGS=.*) /machine:(x|IX|I3)86 #$1 #i) { | |||
$verchg = -1; | $verchg = -1; | |||
} | } | |||
print $dstfl $src; | print $dstfl $src; | |||
} | } | |||
undef $srcfl; | undef $srcfl; | |||
undef $dstfl; | undef $dstfl; | |||
if ($verchg) { | if ($verchg) { | |||
if ($postdep) { | if ($postdep) { | |||
$srcfl = new IO::File $tname, "r" || die; | $srcfl = new IO::File $tname, "r" || die; | |||
$dstfl = new IO::File $oname, "w" || die; | $dstfl = new IO::File $oname, "w" || die; | |||
End of changes. 1 change blocks. | ||||
1 lines changed or deleted | 1 lines changed or added |