$opt{$1}=$2;
shift(@ARGV);
}
+
+$opt{CONFIG_H} ||= 'config.h';
+
my $patchlevel = $opt{INST_VER};
$patchlevel =~ s|^[\\/]||;
$patchlevel =~ s|~VERSION~|$Config{version}|g;
}
($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/;
+$file =~ s/^\$(\w+)$/$opt{$1}/g;
+
my $str = "sub munge\n{\n";
while ($pat =~ s/-e\s+'([^']*)'\s*//)
die "$str:$@" if $@;
open(H,">$file.new") || die "Cannot open $file.new:$!";
-binmode H; # no CRs (which cause a spurious rebuild)
+#binmode H; # no CRs (which cause a spurious rebuild)
while (<SH>)
{
last if /^$term$/o;